スライドショーが終わったタイミングで、マクロ動作を初期状態に戻したいと思って調べました。
・スライドショー終了時に自動的に実行
・スライドショーが終わった瞬間に実行
私の環境でうまくいったコード。
Sub OnSlideShowTerminate(ByVal Wn As SlideShowWindow)
'ここに実行するコードを書く
MsgBox "The slide show has ended."
End Sub
私の環境では動作しなかったコード
Sub Application_SlideShowEnd(ByVal Wn As SlideShowWindow)
'ここに実行するコードを書く
MsgBox "The slide show has ended."
End Sub
コメント