Mit VBA Fußzeile in PP befuellen
28.11.2018 16:14:03
Anna
mit folgendem Code öffne ich eine Powerpoint Vorlage & kopiere eine Tabelle rein.
Nun möchte ich die Fußzeile bei jeder Folie anpassen. Leider funktioniert es nicht.
Kann mir jmd weiterhelfen & drüberschauen? Vielen Dank für eure Tipps!
Sub pptErzeugen()
Dim app As Object
Dim ppt As Object
Dim speicherOrt As String, Pfad As String
Dim pptTable As Object
Dim sld As Slide
Set app = CreateObject("PowerPoint.Application")
app.Visible = msoTrue
Set ppt = app.Presentations.Open(Pfad)
'Fußzeilen anpassen
For Each sld In ppt.Slides
With ppt.ActivePresentation.Slides.HeadersFooters
With .Footer
.Text = Sheets("Namensliste").Range("I2").Value & "| Aktuell |" & Date
.Visible = msoTrue
End With
End With
Next
Worksheets("Diagramme3").Activate
letzteZelle = Worksheets("Diagramme3").Cells(Rows.Count, 2).End(xlUp).Row
Worksheets("Diagramme3").Range("A1:H" & letzteZelle).Copy 'Bereich kopieren
app.ActivePresentation.Slides(3).Select 'Folie auswählen
With app.Presentations("Vorlage.ppt").Slides(3)
Set pptTable = .Shapes.Paste
With pptTabel
.Left = 65
.Top = 15
.Select
End With
End With
End Sub
Direkt meine Fußzeile in ppt kann ich auch nicht ansprechen oder?
Fehlermeldung in ZeileWith ppt.ActivePresentation.Slides.HeadersFooters
: Laufzeitfehler 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht....
Viele Grüße