PPT使用VBA导出pdf绘图

原创

已于 2022-09-14 21:36:51 修改 · 1.1k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#microsoft

于 2021-08-19 21:44:13 首次发布

本文介绍了如何通过PPT的VBA宏一键导出pdf文件，详细步骤包括将pptx转换为pptm，使用Visual Basic新建模块并编写代码。在导出多张幻灯片为PDF时，需要注意文件命名的唯一性，以避免覆盖错误。文章还提及了官方提供的Presentation.ExportAsFixedFormat方法，并指出该方法中第三个参数的重要性。

一键导出pdf

pptx文件另存为pptm文件
开发者工具，点击Visual Basic
新建模块
输入以下代码

build module
select NO
将参数设置为ppPrintCurrent
将同一个ppt内多张slide转为多个pdf时，命名一定要各不相同，否则会报错
备注栏为不打印时应显示为单击此处添加备注 ，如果将多个slide变为空格，此时命名相同，报错

error
correct

Sub 逐张存储()
    'https://stackoverflow.com/questions/17929124/export-each-slide-of-powerpoint-to-a-separate-pdf-file
    Dim strNotes As String, savePath As String
    Dim oPPT As Presentation, oSlide As Slide
    Dim sPath As String, sExt As String
    
    Set oPPT = ActivePresentation
    'sPath = oPPT.FullName & "_Slide_"
    sPath = oPPT.Path
    sExt = ".pdf"
    
    For Each oSlide In oPPT.Slides
        i = oSlide.SlideNumber
        oSlide.Select
        strNotes = oSlide.NotesPage. _
            Shapes.Placeholders(2).TextFrame.TextRange.Text