Экспортировать слайд PowerPoint в качестве заголовка слайда

Question

Я заинтересован в экспорте каждого слайда в моем pptx в формате PDF с именем в соответствии с заголовком документа (т. Е. Текст в поле заголовка слайда)

Я начинаю с этого скрипта, который хорошо работает:

Sub ExportHTML()
 Dim path As String
    path = GetSetting("FPPT", "Export", "Default Path")

    With Application.FileDialog(msoFileDialogFolderPicker)
        .InitialFileName = path
        .AllowMultiSelect = False
        .Title = "Select destination folder"
        .Show
        If .SelectedItems.Count = 1 Then
            path = .SelectedItems(1)
            Save_PowerPoint_Slide_as_Images (path)
            MsgBox "Saving slides to " + path
        Else
            MsgBox "Nothing was saved"
        End If
    End With

    If path <> "" Then
        'Open path For Output As #n
        SaveSetting "FPPT", "Export", "Default Path", path
    End If
End Sub
Sub Save_PowerPoint_Slide_as_Images(path As String)
    Dim sImagePath As String
    Dim sImageName As String
    Dim sPrefix As String
    Dim oSlide As Slide '* Slide Object
    Dim lScaleWidth As Long '* Scale Width
    Dim lScaleHeight As Long '* Scale Height
    On Error GoTo Err_ImageSave

    sImagePath = path
    sPrefix = Split(ActivePresentation.Name, ".")(0)
    For Each oSlide In ActivePresentation.Slides
    sImageName = oSlide.Shapes.Title.TextFrame.TextRange.Text & ".png"
    oSlide.Export sImagePath & "\" & sImageName, "PNG"
    Next oSlide

Err_ImageSave:
    If Err <> 0 Then
    MsgBox Err.Description
    End If
End Sub
Sub slideid()
ActivePresentation.Slides(1).slideid
End Sub

но если я изменю расширения на.pdf, это не сработает. Есть ли способ достичь этого с помощью PDF?