VBS パワーポイント スライドショー の終了

Question

VBSでパワーポイントを自動的に再生し、５秒後にスライドショー を終了（パワポは開いたまま）
にしたいのですが、どうすれば良いでしょうか。

oApp.ActivePresentation.Application.Quit
にするとアプリケーション自体が終了していまいます。

単純に
oApp.ActivePresentation.SlideShowSettings.Stopとしてみても
エラーになってしまうようでした。

アプリは終了せずにスライドショー のみ終了するにはどうすれば世日でしょうか

 Set oApp = CreateObject("PowerPoint.Application")
 oApp.Visible = True '可視にする

 oApp.Presentations.Open("E:\テスト.ppt")

 oApp.ActivePresentation.SlideShowSettings.Run
 WScript.Sleep(5000) '５秒待つ
 '終了

Answer 1

自己解決しました

oApp.SlideShowWindows(1).View.Exit
でスライドショー を停止できました

Answer 2

こちらを参考にしてみて下さい。
多文下記のコードで出来ると思います。

Public Sub Sample()
  Const ppSlideShowDone = 5
   
  With CreateObject("PowerPoint.Application")
    .Visible = True
    With .Presentations.Open(Filename:="C:\Test\Sample.pptx")
      With .SlideShowSettings.Run.View
        'スライドショー終了待ち
        Do Until .State = ppSlideShowDone
          DoEvents
        Loop
      End With
      .Close 'ここはファイルを閉じる処理なので要らない
    End With
    .Quit 'ここはパワーポイントが終了するので要らない
  End With
  Debug.Print "処理が終了しました。"
End Sub

後、タイトルがVBSになってますよ。

Comments

[Qoo]

すみません、スライドショーの終了を、待ちたいわけではなく、スクリプトで終了させたいのです。

また、質問はVBS(VBScript)のしつもんでした。VBAでもあまり変わりませんが。