Hallo,

mein Makro in Excel soll folgende Schritte ausführen:

- Öffnen einer PowerPoint Datei, die als Vorlage dient

- aktualisieren der Diagramme

- Datei als .pptx speichern unter

- Datei als PDF speichern unter

An dem PDF hapert es. Das Problem scheint daran zu liegen, dass ich aus Excel heraus starte, in PowerPoint klappt speichern als PDF.

Hier mein Code Bislang:

Sub openPowerpoint()

Dim PowerPoint As Object
Set PowerPoint = CreateObject("Powerpoint.Application")

PowerPoint.Visible = True
PowerPoint.Presentations.Open ("C:\Vorlage.pptx")
PowerPoint.ActivePresentation.UpdateLinks

PowerPoint.ActivePresentation.SaveAs Filename:="C:\Testdatei.pptx"

PowerPoint.ActivePresentation.SaveAs "C:\Testdatei.pdf", ppSaveAsPDF

End Sub

Alternativ hatte ich für die PDF getestet, funktioniert leider auch nicht:

PowerPoint.ActivePresentation.ExportAsFixedFormat  "C:\Testdatei.pdf", ppFixedFormatTypePDF, RangeType:=ppPrintSelection

Danke