Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub SavePresentationAsPDF2()
- Dim pptName As String
- Dim PDFName As String
- ' Save PowerPoint as PDF
- pptName = ActivePresentation.FullName
- ' Replace PowerPoint file extension in the name to PDF
- PDFName = Left(pptName, InStr(pptName, ".p")) & "pdf"
- ActivePresentation.ExportAsFixedFormat PDFName, 2 ' ppFixedFormatTypePDF = 2
- End Sub
Add Comment
Please, Sign In to add comment