11-08-2010, 03:36 PM
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