2

我有一个启用宏的 PowerPoint 文档 (PPTM)，我想将“导出”功能添加到未启用宏的文档 (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？有没有办法用 VBA“删除”CustomUI 菜单（真的看起来不像，至少在 Excel Hide/Show中），或者可以在不使用 CustomUI 的 Load Event 放置 VBA 方法调用的情况下隐藏它（例如这个例子）？

4

1 回答 1

2

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

我手动尝试了这个并且它有效。

Ron de Bruin 在这里有一些 VBA 邮政编码示例：http ://www.rondebruin.nl/win/s7/win001.htm

于 2016-02-02T16:55:11.017 回答