Pausing the Show and Using White and Black Screens
Sub show() ActivePresentation.SlideShowWindow.View.State = ppSlideShowBlackScreen ActivePresentation.SlideShowWindow.View.State = ppSlideShowWhiteScreen End Sub