从Excel VBA中将PPT演示文稿导出为PDF

Sub ExportPPTtoPDF()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim pptFile As String
    Dim pdfFile As String
    
    ' 设置PPT文件路径
    pptFile = "C:\Path\to\your\Presentation.pptx"
    
    ' 设置导出的PDF文件路径
    pdfFile = "C:\Path\to\your\Output.pdf"
    
    ' 创建PowerPoint应用程序对象
    Set pptApp = CreateObject("PowerPoint.Application")
    
    ' 打开PPT演示文稿
    Set pptPres = pptApp.Presentations.Open(pptFile)
    
    ' 导出为PDF
    pptPres.ExportAsFixedFormat pdfFile, 2 ' 2表示导出为PDF格式
    
    ' 关闭PPT演示文稿
    pptPres.Close
    
    ' 退出PowerPoint应用程序
    pptApp.Quit
    
    ' 释放对象
    Set pptPres = Nothing
    Set pptApp = Nothing
    
    MsgBox "导出成功！"
End Sub