Как выполнить макрос “OnEnterSlide” или “OnLeaveSlide” в Powerpoint VBA?

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