Speichern eines aktiven PPT als PPTX in VBA

Question

Ich habe eine aktive PowerPoint-Folie, die als folgenden Code in PPT-Format gespeichert wird;

PowerPointApp.ActivePresentation.SaveAs ThisWorkbook.Sheets("Vorgaben").Range("D6").Value & Replace(ThisWorkbook.Name, "xlsm", "ppt"), 1 

Ich möchte es als gleichen Namen aber im pptx Format gespeichert werden. Was soll ich dafür tun?

Answer 1

Ich würde so etwas wie dies versucht:

PowerPointApp.ActivePresentation.SaveAs ThisWorkbook.Sheets("Vorgaben").Range("D6").Value, ppSaveAsOpenXMLPresentation 

Es sollte das Powerpoint-Dokument als PPTX speichern (siehe documentation, example)