Export to PPT Script Not working

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

 

Login