vba ppt save as pdf

您好！您想要使用VBA将PPT文件另存为PDF文件，这可以通过以下代码实现：

Sub SaveAsPDF()
    Dim FileName As String
    FileName = "C:\example\example.pdf" '指定保存路径及文件名
    ActivePresentation.ExportAsFixedFormat _
        Path:=FileName, _
        FixedFormatType:=ppFixedFormatTypePDF, _
        Intent:=ppFixedFormatIntentPrint, _
        FrameSlides:=msoFalse, _
        HandoutOrder:=ppPrintHandoutVerticalFirst, _
        OutputType:=ppPrintOutputSlides, _
        PrintHiddenSlides:=msoFalse, _
        PrintRange:=ppPrintAll, _
        RangeType:=ppPrintAll
    MsgBox "PDF文件已保存至 " & FileName, vbInformation '显示提示信息
End Sub
此代码中，我们首先指定了保存的文件路径和文件名，然后使用ActivePresentation.ExportAsFixedFormat方法将当前活动PPT文件保存为PDF格式。其中，FixedFormatType参数指定要保存的文件类型为PDF，Intent参数指定保存文件的意图为打印，PrintRange参数指定打印范围为全部幻灯片，Path参数指定保存路径和文件名。最后，我们使用MsgBox方法显示一个提示信息，告诉用户PDF文件已成功保存。
注意，这段代码仅适用于将当前活动PPT文件另存为PDF文件。如果您要将其他PPT文件转换为PDF文件，请将文件名和路径修改为您要保存的文件的名称和路径。
希望这个代码可以帮助到您！