Відкриття PowerPoint з Excel - Excel, VBA, PowerPoint

Я намагаюся відкрити презентацію PowerPoint з файлу Excel за допомогою макросу. Я використовую наступний код:

Private Sub testButton_Click()
Dim objPPT                               As Object
Set objPPT = CreateObject("PowerPoint.application")
objPPT.Visible = True
objPPT.Activate
objPPT.Presentations.Open (CStr(ActiveWorkbook.Path) + "DailyHealthCheck9_24_15.ppt")
End Sub

але я отримую таку помилку під час виконання:

Починається PowerPoint, але файл не відкриється. Я перевірив шлях до файлу, і це правильно.

Чи може хто-небудь пояснити, чому це відбувається?

Можливо, певний тип захисту файлу PowerPoint.

Відповіді:

Ваш шлях або ім'я файлу повинні бути неправильними. Файл ppt напевно. Хіба це не pptx?

Змініть відкриту лінію на

objPPT.Presentations.Open ActiveWorkbook.Path & "DailyHealthCheck9_24_15.pptx"