Click here to Skip to main content
14,829,981 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
i am not able to convert ppt into pdf format.please help to find a way.

Sub ppttopdf(control As IRibbonControl)
Dim lngFirst As Long
Dim lngSecond As Long
Dim strPath As String
Dim ipos As Integer
If ActivePresentation.path = "" Then
MsgBox "Save me first"
Exit Sub
End If

strPath = "D:\macro" & ActivePresentation.Name & ".pdf"

ActivePresentation.ExportAsFixedFormat path:=strPath, FixedFormatType:=ppFixedFormatTypePDF
MsgBox "saved......"
End Sub

1 solution

You already posted this question at save ppt as pdf using VBA code[^]. Please do not repost; if you have information to add then edit your original.
Member 11944583 24-Sep-15 4:36am

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900