Export PPTX to PDF | Macro

ExportPPTXtoPDF.vba

Sub ConvertToPDFHighQuality()
    Dim pdfFileName As String
    Dim activePresentationPath As String

    ' Get the full path of the active presentation
    activePresentationPath = ActivePresentation.FullName

    ' Create a PDF filename based on the original PowerPoint filename
    pdfFileName = Replace(activePresentationPath, ".pptx", "_HighQuality.pdf")   ' Make sure to replace .pptx with .pptm if macro is saved with presentation
    pdfFileName = Replace(pdfFileName, ".pptm", "_HighQuality.pdf")

    ' Export to PDF with high-quality settings
    ActivePresentation.ExportAsFixedFormat _
        Path:=pdfFileName, _
        FixedFormatType:=ppFixedFormatTypePDF, _
        Intent:=ppFixedFormatIntentPrint, _
        RangeType:=ppPrintAll

    ' Notify the user that the PDF has been created
    MsgBox "PDF has been created with high-quality settings: " & pdfFileName
End Sub