我有一个启用宏的 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 方法调用的情况下隐藏它(例如这个例子)?