Obtains the number of slides in the active presentation.
Usage:
pptCount (object me)
Parameters:
None
Returns:
(integer) - The success code
Example:
-- tell PowerPoint to export every slide
xtRose = xtra("Rosetta")New( )
xtRose.pptLaunch( )
xtRose.pptOpen( "c:\myPowerPointfile.ppt" )
nSlides = xtRose.pptCount( )
repeat with i = 1 to nSlides
xtRose.pptGo( i )
xtRose.pptExportImg( 1024, 768, the moviepath&"Slide"&i&".png")
end repeat
xtRose.pptClose( )
xtRose.pptQuit( )
Notes:
Works with PowerPoint Viewer