Сохранение Powerpoint в формате PDF с использованием Excel VBA - PullRequest
Новая
       103

Сохранение Powerpoint в формате PDF с использованием Excel VBA

0 голосов
/ 28 апреля 2020

При попытке запустить приведенный ниже код появляется сообщение об ошибке «несоответствие типов 13». Он выдает ошибку в 6-й строке кода, где я пытаюсь экспортировать как фиксированный формат. 

Sub Button5_Click()

Application.DisplayAlerts = False

 ActiveWorkbook.SaveAs FileName:="P:\SFO-CSIM-Dept\Risk-Mgmt\SubAdvised\20" & Range("F14").Value & "\InvRisk_" & Range("F15").Value & "_USE4L_Risk Report_" & Range("F14").Value & ".xlsm"

 Set PowerPointApp = GetObject(class:="PowerPoint.Application")

 PowerPointApp.ActivePresentation.SaveAs FileName:="P:\SFO-CSIM-Dept\Risk-Mgmt\SubAdvised\20" & Range("F14").Value & "\InvRisk_" & Range("F15").Value & "_USE4L_Risk Report_" & Range("F14").Value & ".pptx"

 PowerPointApp.ActivePresentation.ExportAsFixedFormat PowerPointApp.ActivePresentation.Path & "\" & PowerPointApp.ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint

 Application.DisplayAlerts = True 

End Sub

Спасибо за помощь заранее!

...