如何在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