将活动ppt保存为vba中的pptx

Question

我有一张活动的PowerPoint幻灯片，它以ppt格式保存为以下代码；

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

我希望它保存为相同的名称，但在pptx格式。我该怎么办？

Answer 1

我会尝试这样的东西：

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

它应该将PowerPoint文档保存为PPTX（请参阅文档示例）