Создание файла PDF из файла PowerPoint с помощью Excel и VBA

Question

Я пытаюсь сгенерировать файл PDF из файла PowerPoint. Все это должно быть сделано путем нажатия кнопки в файле Excel со сценарием VBA. До сих пор мне удалось написать код ниже. Он правильно открывает файл PowerPoint, но также отображает ошибку: «Объект не поддерживает это свойство или метод».

strPath = "Q:\X\Test.pptx"

Set objApp = CreateObject("Powerpoint.Application")
objApp.Visible = True 'False or True

Set wbToRun = objApp.Presentations.Open(strPath)

wbToRun.ExportAsFixedFormat  "<Q:\X\1.pdf>", ppFixedFormatTypePDF, ppFixedFormatIntentScreen, msoCTrue, ppPrintHandoutHorizontalFirst, ppPrintOutputBuildSlides, msoFalse, , , ,  False,  False,  False,  False,  False

objApp.DisplayAlerts = False
wbToRun.Close
objApp.Quit

Надеюсь, вы сможете помочь мне, если я ошибся. Спасибо.

Answer 1

Мне удалось воспроизвести ваши ошибки.Следующее решение сработало для меня.Убедитесь, что вы включили ссылку на библиотеку объектов Microsoft Powerpoint.

Sub ppttest5()

Dim savePath As String
Dim AppPowerPoint
Dim wbToRun

Set AppPowerPoint = CreateObject("PowerPoint.Application")
 'Location of saved file
savePathFN = "C:\mydirb\test.pdf" 'change as per your path
AppPowerPoint.Visible = True

Set wbToRun = AppPowerPoint.Presentations.Open("C:\mydirb\Test.pptx") 'change location of file path

wbToRun.SaveAs savePathFN, ppSaveAsPDF
wbToRun.Close


AppPowerPoint.Quit
Set OpenPresentation = Nothing
Set AppPowerPoint = Nothing

End Sub