ExcelのVBAにおいてSlideShowWindows(1)が使用できない

Question

前提・実現したいこと

Mac版のエクセルのVBAを用いてパワーポイントの操作をしたく、SlideShowWindows(1)を用いたコードを書いたところ以下のようなエラーを返されてしまいました。
コード内のSlideShowWindows(1)〜が原因であると判明はしているのですが、なぜこちらを使用するとエラーが起こるのかが判明できませんでした。回避する方法などはありますでしょうか？
よろしくお願いします。

発生している問題・エラーメッセージ

ActiveX コンポーネントは、オブジェクトを作成できないか、このオブジェクトへの参照を返すことができません (エラー 429)

該当のソースコード

Sub SlideShow()

Dim pp_app As Object ' PowerPoint.Application
Dim pp_prs As PowerPoint.Presentation ' PowerPoint.Presentation

Set pp_app = CreateObject("PowerPoint.Application")
Set pp_prs = pp_app.Presentations.Open(ThisWorkbook.Path & "/(ファイル名).pptx")

pp_prs.SlideShowSettings.Run
SlideShowWindows(1).View.Exit

Set pp_prs = Nothing
Set pp_app = Nothing

End Sub

試したこと

SlideShowWindows(1).View.Exitを除いた際には動作が行えました。

Answer 1

こんにちは。

SlideShowWindows(1).View.Exit　の(1)がインスタンスの番号だからではないでしょうか。
スライドショーの一つ目を作った時と、二つ目を作った時のインスタンス番号は異なっているので、決め打ちで(1)とすると、エラーになるときがあるのだと思います。
そして、SlideShowWindows(1)がたまたま存在している時は、エラーにならないのではないでしょうか。

以下URLによると、Runメソッドの戻り値がSlideShowWindowのようですので、Run時にそのオブジェクトを取得し、オブジェクトに対して.View.Exit とすればよいのではないでしょうか。

SlideShowSettings.Run メソッド (PowerPoint)

Comments

[panda0324]

なるほど！
インスタンスを指定せずに該当部分を
pp_prs.SlideShowWindow.View.Exit
にした場合だと処理を行うことができました。
無事解決できました。回答ありがとうございました！