|
Visual Basic Syntax
Public pptviewerObj As Object
Set pptviewerObj = CreateObject("POWERPOINTVIEWER.PowerPointViewerCtrl.1")
If pptviewerObj.IsPPTViewerInstalled Then
pptViewerObj.IsTopMost = true
pptviewerObj.Open "c:\yourppt.pptx", 0, 0, 640, 480
else
MsgBox "Your computer have not installed MS Power Point Viewer, try installing it first"
end if
|
