在vba中将活动ppt保存为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（参见documentation，example）