PPT（.pptm）保存时自动导出PDF的VBA代码失效求助

一、代码位置错了！PPT对应Excel ThisWorkbook的是ThisPresentation模块 #

你之前把代码放在普通Module里是没用的，因为针对当前演示文稿的保存触发事件，必须放在ThisPresentation模块里：

• 按Alt+F11打开VBA编辑器
• 在左侧工程面板里，找到你的.pptm文件对应的VBAProject，展开后双击那个带PPT图标的ThisPresentation模块
• 把代码移到这个模块里

二、你的代码还有两处错误，修正后如下 #

Private Sub PresentationBeforeSave(ByVal Pres As Presentation, Cancel As Boolean)
    ' 自动生成和PPT同目录同名的PDF，也可以改成你需要的固定路径
    Dim PDF_Filename As String
    PDF_Filename = Replace(Pres.FullName, ".pptm", ".pdf")
    
    ' 导出PDF，修正参数格式，用传入的Pres对象更可靠
    Pres.ExportAsFixedFormat _
        Path:=PDF_Filename, _
        FixedFormatType:=ppFixedFormatTypePDF, _
        Intent:=ppFixedFormatIntentPrint
End Sub

代码修正说明： #

1. 事件名是PresentationBeforeSave（不是App_PresentationBeforeSave），这是ThisPresentation模块专属的保存前触发事件
2. 用传入的Pres对象代替ActivePresentation，避免当前激活其他PPT时出错
3. 修正了ExportAsFixedFormat的参数写法，原来的参数顺序和重复项是错误的，用命名参数更清晰
4. 自动匹配PPT的路径和文件名生成PDF，不用硬写固定路径，更灵活

三、最后要确保宏已启用 #

保存.pptm文件后，重新打开时要允许宏运行（如果弹出安全提示，选择启用宏），否则事件代码不会执行。

内容的提问来源于stack exchange，提问作者jlnkls