Click here to Skip to main content
14,641,739 members
Rate this:
Please Sign up or sign in to vote.
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

Rate this:
Please Sign up or sign in to vote.

Solution 1

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, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100