应用思考-教育技术论坛

标题: VBA幻灯片放映时的事件 [打印本页]

作者: etthink 时间: 2021-12-2 18:07
标题: 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

欢迎光临应用思考-教育技术论坛 (http://etthink.com/)