質問: True '可視にする oApp.Presentations.Open("E:\テスト.ppt") oApp.ActivePresentation.SlideShowSettings.Run WScript.Sleep(5000) '5秒待つ '終了 ```
回答: こちらを参考にしてみて下さい。 多文下記のコードで出来ると思います。 ``` 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になってますよ。