Microsoft PowerPoint fires the OnSlideShowPageChange() event for every slide that is shown during the slide show. You can use this facility to call any macro when certain slides are displayed. PowerPoint passes a reference to the SlideShowWindow as parameter to the OnSlideShowPageChange() event.

The following macro shows how to use OnSlideShowPageChange() event to display a message when the first slide is shown:

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = _
        SSW.Presentation.SlideShowSettings.StartingSlide Then

        MsgBox "First slide in the slide show"
    End If
End Sub

The following macro displays a message when the last slide is shown:

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = _
        SSW.Presentation.SlideShowSettings.EndingSlide Then

        MsgBox "Last slide in the slide show"
    End If
End Sub

The following macro displays a message when the third slide is shown:

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 3 Then
        MsgBox "Third slide in the slide show"
    End If
End Sub

See Also: Events supported by PowerPoint