VBA Macro to Save PPT to PDF

mashiulalam · #1 05-09-2017, 11:05 AM

Hi,

I am looking for VBA macro code for saving existing ppt to pdf in the same file folder.

Any help would be highly appreciated.

Thanks.

Mashiul

JohnWilson · #2 05-10-2017, 08:11 AM

Something like:

Code:

Sub toPDF()
Dim opres As Presentation
Set opres = ActivePresentation
Dim strName As String
strName = Left(opres.Name, InStrRev(opres.Name, ".") - 1)
opres.SaveCopyAs FileName:=opres.Path & "\" & strName & ".PDF", FileFormat:=ppSaveAsPDF
MsgBox "Saved as :" & opres.Path & "\" & strName & ".PDF"
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save as pdf with ability to choose save as folder	rvessio	Word VBA	4	07-25-2016 12:37 PM
Macro: How to get this macro to save to a specific location	LOUF	Word VBA	1	12-07-2015 06:47 PM
Macro to save as PDF but with a different name	shabbaranks	Word VBA	2	05-20-2011 01:02 AM
Macro to Save Help	clarkson001	Word	0	02-14-2011 06:41 AM
Macro Won't Save	lou0915	Word VBA	2	10-17-2009 08:13 PM