ExcelからPowerPointを開く - Excel、Excel、Powerpoint

私は、マクロを使用してExcelファイルからPowerPointプレゼンテーションを開こうとしています。次のコードを使用しています：

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"