19-2 Macros (Codi Font VBA)

—————————————————————————–

Sub PauseShow()
With SlideShowWindows(1)
.View.State = ppSlideShowPaused
.Presentation.SlideMaster.Shapes(“Pause”).ZOrder msoSendToBack
End With
End Sub

—————————————————————————–

Sub ResumeShow()
With SlideShowWindows(1)
.View.State = ppSlideShowRunning
.Presentation.SlideMaster.Shapes(“Resume”).ZOrder msoSendToBack
End With
End Sub

—————————————————————————–