是否有某种事件允许在任何时候进入幻灯片或离开幻灯片时运行宏?
最佳答案
SlideShowNextSlide 或 OnSlideShowPageChange
您可以在 http://officeone.mvps.org/vba/events_version.html 找到完整列表。
来自 http://msdn.microsoft.com/en-us/library/aa211571%28office.11%29.aspx 的代码示例
此示例确定以下幻灯片的幻灯片位置
SlideShowNextSlide 事件。
如果下一张幻灯片是第三张,示例会发生变化
笔的指针类型和笔颜色为红色。
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
Dim Showpos As Integer
Showpos = Wn.View.CurrentShowPosition + 1
If Showpos = 3 Then
With ActivePresentation.SlideShowSettings.Run.View
.PointerColor.RGB = RGB(255, 0, 0)
.PointerType = ppSlideShowPointerPen
End With
Else
With ActivePresentation.SlideShowSettings.Run.View
.PointerColor.RGB = RGB(0, 0, 0)
.PointerType = ppSlideShowPointerArrow
End With
End If
End Sub
关于vba - 如何在 Powerpoint VBA 中运行宏 "OnEnterSlide"或 "OnLeaveSlide"?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/2979821/