Export to PPT Script Not working

[Prakash Kolekar 2]

Hi, I am using below script to export visualization into PPT. it is works fine in client but not in web player. It does not giving any error, for couple of seconds showing processing.

Appreciate your help on this.

Below is the script

from System.IO import *

from Spotfire.Dxp.Application.Visuals import VisualContent

from System.Drawing import Bitmap, Graphics, Rectangle, Point

import clr

clr.AddReference("Microsoft.Office.Interop.PowerPoint")

import Microsoft.Office.Interop.PowerPoint as PowerPoint

 

powerpoint = PowerPoint.ApplicationClass()

powerpoint.Visible = True

pres=powerpoint.Presentations.Add()

slideCounter = 1

 

for visual in Document.ActivePageReference.Visuals:

#print visual.Title

 

#export graphic to temp file

vc = visual.As[VisualContent]()

bm = Bitmap(2000, 1200)

g = Graphics.FromImage(bm)

r = Rectangle(Point(0,0), bm.Size)

vc.Render(g, r)

file = Path.GetTempFileName()

bm.Save(file)

 

#pp setup

slide=pres.Slides.Add(slideCounter, PowerPoint.PpSlideLayout.ppLayoutTitleOnly)

slideCounter = slideCounter+1

slide.Shapes.AddPicture((file), False, True, 30, 60, 650, 400)

title=slide.Shapes.Title

txt=slide.Shapes.AddTextBox(1,10,500,500,100)

title.Top=0.1

obj=slide.Shapes.Title.TextFrame.TextRange

obj.Font.Size=24

[GURUPRASATH T V]

Any other way to do the Export into ppt