Mega Code Archive

 

Categories / VisualBasic Script / Powerpoint

 

PpShowTypeKiosk

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