PowerPoint Viewer ActiveX Control

GetSlideCount

 

Get the total count of slide.

Public Function GetSlideCount(
) As Integer

 

No Parameter


Return Value
return total count of slide.


Example

   

Visual Basic Syntax
Public pptviewerObj As Object
Set pptviewerObj = CreateObject("POWERPOINTVIEWER.PowerPointViewerCtrl.1")

If pptviewerObj.IsPPTViewerInstalled Then
  pptviewerObj.Open "c:\yourppt.pptx", 0, 0, 640, 480
    txttotalslide.Text = pptviewerObj.GetSlideCount
else
 MsgBox "Your computer have not installed MS Power Point Viewer, try installing it first"
end if