Hallo Datenbankgemeinde
ich habe eine Datei mit Dateinamen und Pfaden von Power Point Dateien auf meinem Rechner. Kann ich irgendwie die Anzahl der Folien in einer Date ermitteln, um sie in die Tabelle aufzunehmen?
Hallo,
sollte mit Access Automatisation kein Problem sein. Setze einen Verweis in Access auf die Microsoft PowerPoint Object Library und teste mal folgenden Code mit abgeändertem Pfad+Name der Präsentation:
Private Function CountofSlides(ByVal PresentationPath As String) As Long
Dim ppObj As PowerPoint.Application
Dim ppPres As PowerPoint.Presentation
Set ppObj = New PowerPoint.Application
Set ppPres = ppObj.Presentations.Open(PresentationPath, , , msoFalse)
CountofSlides = ppPres.Slides.Count
ppPres.Close
Set ppPres = Nothing
Set ppObj = Nothing
End Function
Sub test()
MsgBox CountofSlides("c:\users\public\test.ppt")
End Sub
Du kannst aus Access fast alles machen, neue Slides hinzu, neue Powerpoint-Datei erstellen, Präsentation starten etc. Alternativ zum Early Binding mit Verweis könnte man auch ein Late Binding machen ohne Verweis, nur dann hätte man die Intellisense und die internen Konstanten von PowerPoint nicht zur Verfügung.
Gruß Andreas
Siehe zum Thema auch folgender Link:
http://msdn.microsoft.com/en-us/library/office/aa159920%28v=office.11%29.aspx
Gruß