将 PPT 导出为 PDF

如果您不希望他人对您的 PPT 文件进行修改时，可以将演示文稿保存为 PDF 格式。

将 PPT 导出为 PDF

以下示例使用 ExportAsFixedFormat 方法将演示文稿保存为 PDF 格式，其名称为自定义。

Sub ExportAsPDF()
    ActivePresentation.ExportAsFixedFormat "D:\Demo\test.pdf", _
        ppFixedFormatTypePDF, ppFixedFormatIntentPrint, msoFalse, 2, _
        ppPrintOutputSlides, msoFalse, , ppPrintAll, , False, False, False, False, 0
End Sub

以下示例将演示文稿保存为 PDF 格式，其存放路径和名称跟演示文稿相同。

Sub SavePresentationAsPDF()
    Dim pptName As String
    Dim PDFName As String
    
    '将活动演示文稿全名赋给变量
    pptName = ActivePresentation.FullName
    
    '将文件扩展名替换为PDF
    PDFName = Left(pptName, InStr(pptName, ".")) & "pdf"
    
    '使用默认参数，将PPT另存为PDF
    ActivePresentation.ExportAsFixedFormat PDFName, 2 ' ppFixedFormatTypePDF = 2
End Sub

语法参考

Presentation.ExportAsFixedFormat 方法