>It does not work. The presentation does not display.
>
>
>
>>>Can anyone show me how to use the MS PowerPoint ActiveX control in VFP 9?
>>>
>>>I have a small presentation I want to show, and I would like it to open in a VFP window.
>>>
>>>Thanks
>>
>>Place a webbrowser control on form and call navigate2 method:
>>
>>.Navigate2.( "file://"+fullpath("yourppt.ppt") )
>>
>>Though it works I suggest not to open in VFP.
>>Cetin
I don't know why it doesn't work for you. I just tested this and it works wonderfully well here:
lcFile = GETFILE("PPT")
Public oForm
oForm = NewObject('HTMLViewerForm')
oForm.Show
oForm.htmlviewer.navigate2("file://"+m.lcFile)
Define Class HTMLViewerForm As Form
Height = 500
Width = 800
Add Object htmlviewer As OleControl With ;
Height = 500, Width = 800, Visible = .T., ;
OleClass = 'Shell.Explorer', anchor=195
Procedure htmlviewer.Refresh
Nodefault
Endproc
Enddefine
Cetin