Application VisualBasic Script

Sub pane()
    With ActiveWindow
        .ViewType = ppViewSlide
        .Panes(1).Activate
    End With
End Sub