不使用 CustomUI 元素或 VBA 宏将 PPTM 保存为 PPTX

Question

我有一个启用宏的 PowerPoint 文档 (PPTM)，我想将 "Export" 的功能添加到一个未启用宏的文档 (PPTX)。我编写了以下 VBA 代码来实现此目的：

'Default selected file type PPTX
Dim selected As String: selected = Application.FileDialog(msoFileDialogSaveAs).Show()
Dim filePath As String

If selected <> 0 Then
    filePath = Application.FileDialog(msoFileDialogSaveAs).SelectedItems(1)
    ActivePresentation.SaveCopyAs fileName:=filePath, FileFormat:=ppSaveAsOpenXMLPresentation
End If

这可以正常工作并在没有任何关联 VBA 代码的情况下保存文档，但是我在我的源 PPTM 文件中包含了一个 customUI 菜单，我也想删除它，就像功能区选项卡一样指向我已删除的各种 VBA 功能的链接。

如果没有随附的 CustomUI 菜单，如何保存到 PPTX？有没有办法 "remove" 使用 VBA 的 CustomUI 菜单（看起来真的不像，至少在 Excel Hide/Show), or can it be hidden without placing VBA method calls with the CustomUI's Load Event(such as this Example 中）？

Answer 1

理论上应该可以将pptm保存为pptx文件（删除VBA代码），关闭它，重命名为.zip，删除customUI文件夹（其中包含customUI.xml ) 从 zip 中提取，然后将其重命名回 .pptx

我手动尝试了这个并且成功了。

Ron de Bruin 在此处提供了一些 VBA 邮政编码示例：http://www.rondebruin.nl/win/s7/win001.htm

不使用 CustomUI 元素或 VBA 宏将 PPTM 保存为 PPTX

Save PPTM as PPTX Without CustomUI Elements or VBA Macros

powerpoint

vba

powerpoint-2013