¿Cómo convertir múltiples archivos de PowerPoint en PDF con Excel VBA?

A menudo, los clientes necesitan archivos PPT en formato PDF. Ayuda a ver en cualquier dispositivo. Use la siguiente macro de VBA para convertir archivos de PowerPoint desde una carpeta y guardarlos como PDF en la misma carpeta.

Implementación:

Siga los pasos a continuación para convertir múltiples archivos de PowerPoint en PDF usando Excel VBA:

Paso 1: abre Excel.

Paso 2: Escriba el texto «Ruta de la carpeta» en la celda «B5» (Imagen 1).

Paso 3: Ingrese la ruta completa de su carpeta en la celda «C5» (Imagen 1). Aquí tenemos una carpeta “D:\Excel\29.ppt2pdf\ppt” con dos archivos PPT (Imagen 2).

Paso 4: escriba debajo del código VBA en su módulo VBE 

Sub ppt2pdf_Macro()
Dim oPPTApp As PowerPoint.Application
Dim oPPTFile As PowerPoint.Presentation
Dim onlyFileName As String, folderPath As String, pptFiles As String, removeFileExt As Long
      
Application.ScreenUpdating = False

• Inicializar variables

folderPath = Range("C5").Text & "\"
pptFiles = Dir(folderPath & "*.pp*")

• Verifique y salga de la macro si no hay archivos ppt en la carpeta

If pptFiles = "" Then
    MsgBox "No files found"
    Exit Sub
End If

Do While pptFiles <> ""

• Asignar aplicación de PowerPoint a variable

    Set oPPTApp = CreateObject("PowerPoint.Application")
    oPPTApp.Visible = msoTrue
      
    On Error Resume Next

• Asignar presentación de PowerPoint a variable

    Set oPPTFile = oPPTApp.Presentations.Open(folderPath & pptFiles)
        
    On Error GoTo 0

• Eliminar extensión de archivo y asignar un único nombre de archivo a una variable

    removeFileExt = InStr(1, oPPTFile.Name, ".") - 1
    onlyFileName = Left(oPPTFile.Name, removeFileExt)
    
    On Error Resume Next

• Guardar archivo ppt en archivo pdf

    oPPTFile.ExportAsFixedFormat oPPTFile.Path & "\" & onlyFileName & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint
    oPPTFile.Close

• Iterar al siguiente archivo en la carpeta

    pptFiles = Dir()
Loop

• Cierre la aplicación PPT y libere la memoria

oPPTApp.Quit

Set oPPTFile = Nothing
Set oPPTApp = Nothing
    
Application.ScreenUpdating = True

MsgBox " Successfully converted"
End Sub

Paso 5: para ejecutar el código VBA:  

• Presione «Alt + F8» – para abrir el cuadro de diálogo Macro.
• Seleccione Macro «ppt2pdf_Macro» y haga clic en «EJECUTAR».

Paso 6: Macro convierte todos los archivos PPT de la carpeta a PDF y muestra un mensaje emergente a continuación

Producción: