Convert Multiple Powerpoint Files into PDF with Excel VBA

The following programs allow you to batch convert Microsoft PowerPoint 2000, 2003, 2007 presentations into PDF file format.

Prerequisites:
MS Office Add-in: Save as PDF or XPS

This add-in is pre-installed in Office 2010 package. If this add-in is not installed on your computer, download it from the Microsoft site : Download Add-In

(If this link is not working, Google search on "Save as PDF or XPS MS Office" and you'll find the link working)

1. Convert the whole powerpoint file into PDF

The following program creates a PDF file of the whole powerpoint presentation from files in a folder.The PDF files are saved in the same directory where PPT files are stored.

Enter the folder path in cell C3 as shown below :

Option Explicit
Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Sub Converter()
Dim cnt As Integer, currfile As String
Dim TrimFile As String, Path As String, FilesInPath As String _
, MyFiles() As String, Fnum As Long
Dim CalcMode As Long, LPosition As Long
Dim StartTime As Date, EndTime As Date
      
ThisWorkbook.Activate
currfile = ActiveWorkbook.Name
         
Windows(currfile).Activate
Sheets("Sheet1").Activate
    
StartTime = Timer
Path = Range("C3").Text & "\"

FilesInPath = Dir(Path & "*.pp*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If

Fnum = 0
Do While FilesInPath <> ""
Fnum = Fnum + 1
ReDim Preserve MyFiles(1 To Fnum)
MyFiles(Fnum) = FilesInPath
FilesInPath = Dir()
Loop

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With

If Fnum > 0 Then
For Fnum = LBound(MyFiles) To UBound(MyFiles)
  Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
      
    On Error Resume Next
    
Set oPPTFile = oPPTApp.Presentations.Open(Path & MyFiles(Fnum))
    
On Error GoTo 0

If Not oPPTFile Is Nothing Then

LPosition = InStr(1, oPPTFile.Name, ".") - 1
TrimFile = Left(oPPTFile.Name, LPosition)

On Error Resume Next
    
oPPTFile.ExportAsFixedFormat oPPTFile.Path & "\" & TrimFile & ".pdf", _
ppFixedFormatTypePDF, ppFixedFormatIntentPrint
    
   End If
   
oPPTFile.Close
   
   Next Fnum
End If


With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
 
    oPPTApp.Quit

    Set oPPTFile = Nothing
    Set oPPTApp = Nothing
    
EndTime = Timer
MsgBox " Task succesfully completed in " & Format(EndTime - StartTime, "0.00") & " seconds"
End Sub

How to use

Download the workbook and enter the folder path in cell C3.
And then hit PDF Conversion button.

OR

1. Open Excel . Press Alt + F11 to open the visual basic editor.
2. Go to Tools >> References and check Microsoft Powerpoint Object library
3. Go to Insert >> Module to insert a new module.
4. Paste the above program into the module.
5. Mention the folder path in cell C3.
6. Press Alt + F8 , select "Converter" macro and hit Run button.

2. Convert the specified powerpoint slide into PDF

The following program creates a PDF file of the specified powerpoint slide from presentations in a folder. It displays a prompt in a dialog box to enter the slide number.

Option Explicit
Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim sld As Slide
Sub Converter()

Dim currfile As String, TrimFile As String _
, Path As String, FilesInPath As String _
, MyFiles() As String, Fnum As Long

Dim CalcMode As Long, LPosition As Long
Dim StartTime As Date, EndTime As Date
Dim SlidePos As Variant

    
    ThisWorkbook.Activate
    currfile = ActiveWorkbook.Name
         
    Windows(currfile).Activate
    Sheets("Sheet1").Activate
    
StartTime = Timer
Path = Range("C3").Text & "\"

SlidePos = InputBox("Enter slide number")

Select Case StrPtr(SlidePos)
Case 0
MsgBox "Task Aborted"
Exit Sub
End Select


FilesInPath = Dir(Path & "*.pp*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If

Fnum = 0
Do While FilesInPath <> ""
Fnum = Fnum + 1
ReDim Preserve MyFiles(1 To Fnum)
MyFiles(Fnum) = FilesInPath
FilesInPath = Dir()
Loop

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With

If Fnum > 0 Then
For Fnum = LBound(MyFiles) To UBound(MyFiles)
  Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
      
    On Error Resume Next
    
Set oPPTFile = oPPTApp.Presentations.Open(Path & MyFiles(Fnum))
    
On Error GoTo 0

If Not oPPTFile Is Nothing Then


LPosition = InStr(1, oPPTFile.Name, ".") - 1
TrimFile = Left(oPPTFile.Name, LPosition)


On Error Resume Next
        
    oPPTFile.Slides.Range(SlidePos).Select
    oPPTFile.ExportAsFixedFormat oPPTFile.Path & "\" & TrimFile & ".pdf", ppFixedFormatTypePDF, RangeType:=ppPrintSelection
    
   End If
   
    oPPTFile.Close
   
   Next Fnum
End If


With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
 
    oPPTApp.Quit

    Set oPPTFile = Nothing
    Set oPPTApp = Nothing
    
EndTime = Timer
MsgBox " Task succesfully completed in " & Format(EndTime - StartTime, "0.00") & " seconds"
End Sub

How to use

Download the workbook and enter the folder path in cell C3.
And then hit PDF Conversion button. After that it will prompt you to enter a slide number.

OR

1. Open Excel . Press Alt + F11 to open the visual basic editor.
2. Go to Tools >> References and check Microsoft Powerpoint Object library
3. Go to Insert >> Module to insert a new module.
4. Paste the above program into the module.
5. Mention the folder path in cell C3.
6. Press Alt + F8 , select "Converter" macro and hit Run button.

3. Convert each slide as a seperate PDF file

The following program creates a PDF file of each slide from the presentations in a folder.

Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim oPPTSlide As PowerPoint.Slide
Sub Converter()
Dim currfile As String, TrimFile As String _
, Path As String, FilesInPath As String _
, MyFiles() As String, Fnum As Long

Dim i, CalcMode As Long, LPosition As Long

Dim StartTime As Date, EndTime As Date
    
    ThisWorkbook.Activate
    currfile = ActiveWorkbook.Name
         
    Windows(currfile).Activate
    Sheets("Sheet1").Activate
    
StartTime = Timer
Path = Range("C3").Text & "\"

FilesInPath = Dir(Path & "*.pp*")
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If

Fnum = 0
Do While FilesInPath <> ""
Fnum = Fnum + 1
ReDim Preserve MyFiles(1 To Fnum)
MyFiles(Fnum) = FilesInPath
FilesInPath = Dir()
Loop

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
.EnableEvents = False
End With

If Fnum > 0 Then
For Fnum = LBound(MyFiles) To UBound(MyFiles)
  Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
      
    On Error Resume Next
    
Set oPPTFile = oPPTApp.Presentations.Open(Path & MyFiles(Fnum))
    
On Error GoTo 0

If Not oPPTFile Is Nothing Then


LPosition = InStr(1, oPPTFile.Name, ".") - 1
TrimFile = Left(oPPTFile.Name, LPosition)


On Error Resume Next
        
   For Each oPPTSlide In oPPTFile.Slides
    
   OutputPath = TrimFile & "-" & oPPTSlide.Name
   
    oPPTSlide.Select
   
oPPTFile.ExportAsFixedFormat oPPTFile.Path & "\" & OutputPath & ".pdf", _
ppFixedFormatTypePDF, RangeType:=ppPrintSelection

Next oPPTSlide
   
oPPTFile.Close
   
End If
      
Next Fnum

End If

With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalcMode
End With
 
    oPPTApp.Quit

    Set oPPTFile = Nothing
    Set oPPTApp = Nothing
    
EndTime = Timer

MsgBox " Task succesfully completed in " & Format(EndTime - StartTime, "0.00") & " seconds"
End Sub

How to use

Download the workbook and enter the folder path in cell C3.
And then hit PDF Conversion button.

OR

1. Open Excel . Press Alt + F11 to open the visual basic editor.
2. Go to Tools >> References and check Microsoft Powerpoint Object library
3. Go to Insert >> Module to insert a new module.
4. Paste the above program into the module.
5. Mention the folder path in cell C3.
6. Press Alt + F8 , select "Converter" macro and hit Run button.

Subscribe to get Email Updates!

About Author:

Deepanshu founded ListenData with a simple objective - Make analytics easy to understand and follow. He has over 8 years of experience in data science. During his tenure, he has worked with global clients in various domains like Banking, Insurance, Telecom and Human Resource.

While I love having friends who agree, I only learn from those who don't
Let's Get Connected: Email | LinkedIn

10 Responses to "Convert Multiple Powerpoint Files into PDF with Excel VBA"

Asif Raza1 November 2015 at 06:06
Great article. thanks it was very helpful.
Anonymous25 April 2016 at 13:30
I really like the third strategy, but for some reason, the macro is only extracting and saving slides as PDF's for files that were modified with today's date. I've tested this multiple times - the macro opens all decks in my file path, but only converts the files that were modified today. Any suggestions on how to fix this?
zoedtdt27 October 2016 at 22:53
Try the best excel macroto pdf filename online directly and easily with high quality on tagpdf.com page http://www.tagpdf.com/online/convert-excel-to-pdf/.
Anonymous3 January 2017 at 03:20
Thanks a ton..
Anonymous6 June 2017 at 01:08
useful article, thank you!
Unknown26 February 2018 at 05:45
Same as first strategy any possibilities to export it as excel instead of pdf
Andrew Stark18 April 2018 at 07:31
You will require a strong affirmed business case and contract to empower you to explore the difficulties that will unfurl on your trip and to plainly verbalize the surges of work to be finished.pdf to ppt
Harry Jack21 October 2018 at 01:17
This comment has been removed by the author.
Harry Jack22 October 2018 at 05:48
This comment has been removed by the author.
Harry Jack22 October 2018 at 08:34
However, we choose to roll out the improvement and tap the "Utilization .gif" alternative. The filename is changed as observed underneath: https://es.altoconvertpdftoexcel.com/