エクセルVBA パワーポイントスライドショー自動実行、自動終了

Question

エクセルVBAにてパワーポイントを立上げて目的別スライドショーを自動実行させることができました。
以下
Sub PowerPointNamedSlideShowStart()

With CreateObject("PowerPoint.Application").Presentations.Open("D:\〇〇.pptx").SlideShowSettings
    .RangeType = 3
    .SlideShowName = "4"
   .Run

End With
’どうすれば、自動的に閉じる（.Quit）ことができるか？

End Sub

しかし、スライドショーが終了してもそのままの状態となります。このファイルを閉じて、エクセルVBAに戻って次の操作をしたいと考えてます。
以下の記述をご教授下さい

富山の真さんより

Answer 1

他にも方法があるかもしれませんが、たとえばこんな感じでどうでしょう。

Dim ppap 'As PowerPoint.Application
Set ppap = CreateObject("PowerPoint.Application")
With ppap.Presentations.Open("D:\〇〇.pptx").SlideShowSettings
    .RangeType = 3
    .SlideShowName = "4"
    .Run
End With
Do
    If ppap.SlideShowWindows.Count = 0 Then
        ppap.Quit
        Exit Do
    End If
    DoEvents
Loop


MsgBox "次の操作"

Comments

[toyamanosinsan]

jINOJIさん,ありがとうございます。先日に引き続きうれしい限りです。
早速試してみましたが、ｄｏ　LOOP　のなかから抜け出せません。他の設定とかがちがうのでしょうか？　ご教授下さい

[jinoji]

スライドショーが自動で起動した後は、自分でクリックしてページを進め、
最後の黒い画面でもう一度クリックしてスライドショーを終了させるという前提で書いています。

[toyamanosinsan]

申し開けありません。情報提供が不足しておりました。スライドショーの中身は全て動画です。クリックなしで自動的に終了することが条件となります。

[jinoji]

いまのコードだと、動画再生はクリックしなくても開始されますか？
また、スライドは複数ページあるのですか？

ちょっと強引だけど、動画の秒数が事前にわかるなら、
その分だけウェイトして、終わった頃合いをみてQuitする手もあるかな。

[toyamanosinsan]

jinojiさんへ
動画再生はクリックなしで開始されます。スライドは目的別スライドショー2ページです。スライド秒数も予めわかります。

[toyamanosinsan]

追記
Application.Wait Now() + TimeValue("00:00:33")でやってみました。OKです。この方法が手堅いと思いますが、別の方法があればお願いします

[jinoji]

一つ思いついたところでいうと
Do Until ppap.SlideShowWindows(1).View.State = 5 ’ppSlideShowDone
DoEvents
Loop
ppap.Quit
みたいなアプローチができるのかな、と思います。
こちらの方がより正攻法かもしれませんね。

[toyamanosinsan]

jinojiさんへ
バッチリ成功いたしました。これでスッキリといたしました。素人の私に手取り足取り教えて頂き誠にありがとうございました。