PowerPoint Viewer ActiveX Control

GetCurrentSlide 

 

Get the current slide number.

Public Function GetCurrentSlide(
) As Integer

 

No Parameter


Return Value
return current slide number.


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
   txtcurrentslide.Text = pptviewerObj.GetCurrentSlide
else
 MsgBox "Your computer have not installed MS Power Point Viewer, try installing it first"
end if