PowerPoint 中功能区的 VBA 仅在使用 SaveAs/SaveCopyAs 后工作一次

Question

我的 PowerPoint 功能区出现异常行为。

我创建了一个带有功能区的 pptm 文件，用于快速链接到 2 个 vba 代码。
一种是将数据从 xls 文件复制到图表。另一种是将演示文稿的副本另存为 pptx 文件和 pdf 文件 (savecopyas)，并使用 Outlook 发送电子邮件。

只要我只保存 pdf 文件，一切都会顺利进行。如果我还创建了 pptx 文件(或其他命名的 pptm 文件)，则 vba 脚本仅在第一次运行 - 之后两个操作的功能区不再工作。它提示错误，说未找到 vba 代码。

我经历了什么？

1) 只要未启动电子邮件代码，xls 代码就可以随心所欲地运行。

2)没有警告说pptx文件将不再包含任何vba代码(这就是Excel会告诉你的)

3) 如果我添加将 pptm 保存为 pptx 的最后一行，则模块将保留在 pptx 中，直到它关闭。在这种 pptx 文件的情况下，功能区命令可以正常工作 - 只要您愿意。

4) 从一个按钮手动启动 pptm 中的电子邮件 vba 代码始终可以顺利运行，无论它启动的频率如何。

我在网上只发现了 2-3 个类似的问题/错误，没有任何解释或只有解决方法。

有没有人可以解释并帮助我解决这种奇怪的行为？

亲切的问候，

马里奥

这是代码:

Sub Email(ByVal control As IRibbonControl)

Dim Send_Email, olApp As Object
Dim Send_1, Send_2 As String

With ActivePresentation
.SaveCopyAs _
    FileName:=ActivePresentation.Path & "\" & "Test" & ".pptx", _
    FileFormat:=ppSaveAsOpenXMLPresentation
End With

With ActivePresentation
.SaveCopyAs _
    FileName:=ActivePresentation.Path & "\" & "Test" & ".pdf", _
    FileFormat:=ppSaveAsPDF
End With

Send_1 = ActivePresentation.Path & "\" & "Test" & ".pptx"
Send_2 = ActivePresentation.Path & "\" & "Test" & ".pdf"

Set olApp = CreateObject("Outlook.Application")

Set Send_Email = olApp.CreateItem(0)

With Send_Email
 .To = "test@gmail.com"
 .Subject = "Test"
 .Body = "Hallo "
 .Attachments.Add Send_2
 .Attachments.Add Send_1
 .Send
End With

Set olApp = Nothing

End Sub

Answer 1

如果您希望 VBA 宏工作，您需要以 .pptm(启用宏)格式保存演示文稿。默认情况下，pptx 没有/运行 VBA 代码。