Powerpoint VisualBasic Script

Sub view()
    ActivePresentation.SlideShowWindow.View.Exit
End Sub