如果您不希望他人对您的 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