|
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
|