При попытке запустить приведенный ниже код появляется сообщение об ошибке «несоответствие типов 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
Спасибо за помощь заранее!