Gadgets, IT-Projekte, Programmierung und mehr

Uses the Microsoft Office object model to open a PowerPoint file and get the count of slides from a script.

'#########################################################################
'  Script name:    PP_GetSlideCount.vbs
'  Created on:     04/15/2010
'  Author:         Dennis Hemken
'  Purpose:        Demonstrate opening a PowerPoint file and get the count

                   of slides from a script.
'#########################################################################

Dim AppPowerPoint
Dim OpenPresentation
Dim lngSlideCount

Set AppPowerPoint = CreateObject("PowerPoint.Application")

AppPowerPoint.Visible = False

Set OpenPresentation = AppPowerPoint.Presentations.Open("C:\Concepts\Management.ppt")

lngSlideCount=OpenPresentation.Slides.Count

OpenPresentation.Close
Set OpenPresentation = Nothing

AppPowerPoint.Quit
Set AppPowerPoint = Nothing

wscript.echo lngSlideCount

Tags: FileSystemObject, FSO, MS Powerpoint, Powerpoint, vbscript

Keine Kommentare »

Trackback URI | Kommentare als RSS