Powerpoint VisualBasic Script

Sub run()
    ActivePresentation.SlideShowSettings.Run
End Sub