Thread: VBA Macro to Save PPT to PDF
View Single Post
 
Old 05-10-2017, 08:11 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
  
Join Date: Nov 2008
Location: UK
Posts: 1,914
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default
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
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote