Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

PpShowTypeSpeaker

Sub show()   With ActivePresentation.SlideShowSettings     .LoopUntilStopped = msoCTrue     .AdvanceMode = ppSlideShowUseSlideTimings     .ShowType = ppShowTypeSpeaker     .Run    End With End Sub