Powerpoint Folien in Excel kopieren
18.02.2007 23:38:27
Christian
ich könnte eure Hilfe gebrauchen:
würde gerne aus Excel/Word heraus eine Powerpoint-Datei öffnen, hier die Folien zählen lassen und diese einzeln (mit for-Schleife) in Excel/Word kopieren.
Das öffnen klappt, aber das zählen und kopieren noch nicht.
Sub Praesentationenkopieren()
Dim pfad As String
Dim appPP As Object
Dim nameeingabe As String
nameeingabe = InputBox(prompt:="Bitte Dateinamen eingeben")
pfad = "C:\" & nameeingabe & ".ppt"
If Dir(strDoc) <> "" Then
Set appPP = CreateObject("Powerpoint.Application")
appPP.Visible = True
appPP.Presentations.Open pfad
Set appPP = Nothing
End If
End Sub
Vielen Dank im Voraus!