VBA幻灯片放映时的事件

                    

PowerPoint在播放时自动运行宏，要用到OnSlideShowPageChange和OnSlideShowTerminate ，有了这两个事件函数，我们就可以在演示文稿开始放映、放映过程中及放映结束时自动运行相应的代码。

OnSlideShowPageChange的使用

Sub OnSlideShowPageChange()

   If ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 Then

      MsgBox "I love you"

   End If

End Sub

ActivePresentation.SlideShowWindow.View.CurrentShowPosition = 1 ，这是当前播放的幻灯片的位置。

    同样OnSlideShowTerminate，是在幻灯片放映结束时触发的事件，使用方式同OnSlideShowPageChange