WindowActivate Event Example

This example opens every activated presentation in slide sorter view.

Private Sub App_WindowActivate _
        (ByVal Pres As Presentation, ByVal Wn As DocumentWindow)
    Wn.ViewType = ppViewSlideSorter
End Sub