![PowerPoint でスライドが変更されたときにイベントを発生させるにはどうすればよいですか?](https://rvso.com/image/1416852/PowerPoint%20%E3%81%A7%E3%82%B9%E3%83%A9%E3%82%A4%E3%83%89%E3%81%8C%E5%A4%89%E6%9B%B4%E3%81%95%E3%82%8C%E3%81%9F%E3%81%A8%E3%81%8D%E3%81%AB%E3%82%A4%E3%83%99%E3%83%B3%E3%83%88%E3%82%92%E7%99%BA%E7%94%9F%E3%81%95%E3%81%9B%E3%82%8B%E3%81%AB%E3%81%AF%E3%81%A9%E3%81%86%E3%81%99%E3%82%8C%E3%81%B0%E3%82%88%E3%81%84%E3%81%A7%E3%81%99%E3%81%8B%3F.png)
私はすでに 2 つの修正方法を知っています。以下に、それらが機能しない理由とともにリストします。
1 つ目はSlideShowNextSlide
サブルーチンを使用する方法です。これの問題は、遷移の前にイベントが起動されるため、どのスライドに遷移するかを知る方法がないことです。プレゼンテーション中に特定のスライドに入るときにイベントが起動するようにしたいのですが、特定のスライドを離れるときには起動させたくないのです。次のスライドに進むとは限らないので、フィールドにイベントを追加するだけCurrentShowPosition
では不十分です。ハイパーリンクをクリックするかもしれません。つまり、次のスライドに進むときにのみイベントを起動したいのです。いくつかの現在のスライドから遷移しますが、SlideShowNextSlide
イベントを起動するために適切なスライドに移動しているかどうかを知る方法がありません。
2 つ目は、サブルーチンを使用することですOnSlideShowPageChange
。これの問題は、PowerPoint スライド ショーをすでに 1 回保存し、閉じて再度開いているため、PowerPoint がサブルーチン内のコードを無視してしまうことです。
私に何ができるかについて、何かアドバイスはありますか? 前述の問題の 1 つを修正する方法はありますか? Windows 8.1 で PowerPoint 2013 を使用しています。
使用したいコードは次のとおりです。
Private Sub EventHandler_SlideShowNextSlide(ByVal SSW As SlideShowWindow)
' The purpose here is to stop music playing in the background, which happens on certain slides.
' For my purposes, it's not enough to simply state how many slides to play the music over,
' because some slides that need the music stopped can occur before slides that need it playing.
Dim Change As Boolean
If SSW.View.CurrentShowPosition < 66 And ((SSW.View.CurrentShowPosition < 42 And SSW.View.CurrentShowPosition > 25) Or SSW.View.CurrentShowPosition Mod 2 = 0) _
Then
ActivePresentation.Slides(1).Shapes("music file.mp3").Delete
Change = True
End If
If Change Then Application.CommandBars.ExecuteMso "Undo"
End Sub
答え1
Dim CS As Slide
Set CS = ActivePresentation.SlideShowWindow.View.Slide
If CS.SlideIndex < 66 And CS.SlideIndex > 25 Then
'''
End If
必要なスライドにいるかどうかを確認してからSlideIndex
、If Condition