Power Point Datei Daten

[PeterW]

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?

[Hondo]

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:

Code [Auswählen] Erweitern

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

[Hondo]

Siehe zum Thema auch folgender Link:
http://msdn.microsoft.com/en-us/library/office/aa159920%28v=office.11%29.aspx

Gruß