在 vba 中将活动 ppt 保存为 pptx答案

【问题标题】：saving an active ppt as pptx in vba在 vba 中将活动 ppt 保存为 pptx
【发布时间】：2016-03-22 23:13:37
【问题描述】：

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

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

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

【问题讨论】：

【解决方案1】：

我会尝试这样的事情：

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

它应该将 PowerPoint 文档保存为 PPTX（请参阅documentation、example）

【讨论】：

@YigitTanverdi 您能否提供有关它为什么不起作用的更多详细信息，您是否收到错误消息？它会默默地失败吗？保存的文件是否损坏？
它没有给出错误它只是没有做任何事情。如果这很重要，我的 PowerPoint 是 2010 年
您是否检查了“我的文档”文件夹，这是我运行的示例中保存文件的位置？
完成后，PowerPoint 文件已打开，其名称为 somename.ppt 而不是 somename.pptx。之后不应该直接改成pptx吗？
当我运行我的示例时，您可以在 PowerPoint 的标题栏中看到名称的变化（新名称以 pptx 结尾），也许它们是我在这里遗漏的一些细节，您能否为您的问题添加更多细节，您能否解释一下最终目标是什么，即您的代码的全部目的是什么？