vba - 如何在 Powerpoint VBA 中运行宏 "OnEnterSlide"或 "OnLeaveSlide"？

Question

是否有某种事件允许在任何时候进入幻灯片或离开幻灯片时运行宏？

Answer 1

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