Opening powerpoint in web Application

HCL Domino Domino Forum
1

Hi All,

I want to open a powerpoint on web Application…

i have following code which works fine to open a .ppt file in client , but how to open on web

Dim session As New NotesSession

Set doc=session.DocumentContext

Set db=session.CurrentDatabase 

Set view=db.GetView("KPPT") 

pos=50#	



Set ppt = CreateObject("PowerPoint.Application")

ppt.Presentations.Add (msoCTrue)

ppt.Visible = True

Set sld = ppt.Presentations.Add(True).Slides.Add(1, 12)	

allf=doc.allfield

'For i=0 To Ubound(allf)

'	arr(i)=allf(i)

'	mdata1=arr(i)					

'	Msgbox mdata1



For i=0 To Ubound(allf)

	arr(i)=allf(i)

	mdata1=arr(i)			

	key=doc.v2reg_methodology(0) + "-" + doc.seq(0) + "-" + mdata1  

	Set doc1=view.GetDocumentByKey(key)

’ doc1.fieldlist(0)

	a=doc.GetItemValue(Cstr(doc1.fieldlist(0)))

	

	'mdata= mdata1 + " :  " +  uidoc.FieldGetText(doc1.fieldlist(0)) 

	mdata= mdata1 + " :  " + a(0)

’ mdata=uidoc.FieldGetText(mdata1)

	sld.Application.ActiveWindow.Selection.SlideRange.Shapes.AddTextbox(1, 144#, pos, 408#, 36#).Select

	sld.Application.ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(Start=1, Length=0).Select

	With sld.Application.ActiveWindow.Selection.TextRange

		.Text = mdata

		With .Font

			.Name = "Arial "

			.Size = 20

			.Bold = True

			.Italic = msoFalse

			.Underline = True

			.Shadow = msoFalse

			.Emboss = Flase

			.BaselineOffset = 0

			.AutoRotateNumbers = msoFalse

			.Color.SchemeColor = 2

		End With

	End With

	pos=pos+25

Next

end sub

Waiting for reply

regards

Rupesh