如何在Powerpoint VBA中运行宏“OnEnterSlide”或“OnLeaveSlide”？

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

SlideShowNextSlide 或 OnSlideShowPageChange

您可以在以下位置找到完整列表：http://officeone.mvps.org/vba/events_version.html http://officeone.mvps.org/vba/events_version.html

代码示例来自http://msdn.microsoft.com/en-us/library/aa211571%28office.11​​%29.aspx 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