У меня есть документ Excel с внедренным PPT.Я хотел бы создать подпрограмму VBA, которая будет копировать этот файл в папку filepath:
Dim PPTApp As PowerPoint.Application
Set PPTApp = New PowerPoint.Application
Dim Filepath As String
Filepath = ActiveWorkbook.Path
Dim File As PowerPoint.Presentation
' Worksheet(1).OLEObjects(1).Verb xlOpen
Set File = Worksheet(1).OLEObjects.Object
File.SaveAs Filepath & "\ppt.pptx", PowerPoint.ppSaveAsOpenXMLPresentation, msoTriStateMixed
Если я оставлю строку с комментариями, я получу ошибку:
Run-time error 1004, Unable to get Object Property of OLEObject class
Но если я раскомментирую его, PowerPoint запустится перед сохранением файла.