To read total number of slides in Powerpoint presentation

[aravindmys]

Hi all,

Please help me in the below query

How to read the total number of slides in a power point presentation

Thanks

[KavitaPriyaCR]

Hi try this:

Code:

Set objPPTApp=CreateObject("PowerPoint.Application")
objPPTApp.Visible=True
Set objPPTPres=objPPTApp.Presentations.Open("c:\path\Filename.ppt")
MsgBox objPPTPres.Slides.Count
objPPTPres.Close
objPPTApp.Quit
objPPTPres=Nothing
objPPTApp=Nothing