Pausing a Powerpoint animation

Hi all,

I have a ppt with lots of custom animation and slide transitions. You can watch the whole thing like a movie, without having to click once.

Sometimes, when I give this presentation, there are questions and I need to pause the presentation. For this, I'm using the code in the code snippet below, and two shapes that are located on the slide master.

But, when I click a shape, the current slides starts from the beginning as soon as

    .Presentation.SlideMaster.Shapes("pause").ZOrder msoSendToBack

is executed.

I don't want that. I want to pause and then continue at exactly the same spot. As a workaround, I can place the Pause and  Resume shapes next to each other and comment out the msoSendToBack lines in the code. But, since in the real presentation, the shapes will be white on white, i.e. invisible, I'd just want to make them really big and then be able to click anywhere in the screen to pause and click anywhere again to resume.

Any idea how to do that?

cheers, teylyn

Option Explicit

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

Select allOpen in new window

Freeze.ppt