Pausing a Self-Running Presentation

[Rick Alber]

I've got a PowerPoint 2000 presentation that is self-running, i.e. every
slide appears for 10 seconds, then transitions to the next slide. I'd like
to add a button on each slide that will allow a person to pause the
presentation, in the event they need more than 10 seconds to absorb the
information on a particular slide. The first click on the pause button will
hold the presentation on the current slide until the user clicks on the
pause button again, which will restart the self-running presentation.

Can anybody tell me how to do this? I figured there would be a "pause"
action button to add to the slide master but I sure can't find one.

--------- Rick Alber

[Austin Myers]

Rick,

No "pause" function available without getting into VBA. However I think I
have a work around for you.

Lets say your presentation has 5 slides all with auto advance after "n"
seconds. Copy each of then to a new slide so the presentation now has 10
slides. 1-through 5 are the "copies" and 6-10 are the original. Place a
"button" on each slide (6-10) that hyperlinks to the corresponding "copy".
Place a "button" on each of these "copies" that hyperlink back to the
original.

Keep in mind that the "copies" of the slides should NOT auto advance. When
the user has read everything, they click on the return button (could be
called resume or such) and they are returned to the original slide, the
timer does its thing, and the show continues.

One more thought, you will want to go into "Set up Slide Show" and have the
presentation start on slide 6 and play through slide 10. This way no one
will see the "copies" unless needed.

Austin Myers
MS PowerPoint MVP team

"Rick Alber" <rick....@buildpoint.com> wrote in message
news:uuDsYZqdAHA.1320@tkmsftngp02...

[PTT, Inc.]

Rick,

Shyam Pillai posted some code awhile back that should work. Not too sure if
it was specifically made for PPT 97 or not, but you could give it a try.
See Below:

PAUSE/RESTART A SLIDE SHOW

It can be done if you use VBA. Switch the slide master of the presentation.
Add a shape/text box with the text - "Pause" on it. Switch to VBE add a
module and paste the following code.

'===== Beginning of Code =====
Sub PauseResumeToggle()
With SlideShowWindows(1)
If .View.State = ppSlideShowPaused Then
.Presentation.SlideMaster.Shapes("PauseButton").TextFrame _
.TextRange.Text = "Pause"
.View.State = ppSlideShowRunning
Else
.Presentation.SlideMaster.Shapes("PauseButton").TextFrame _
.TextRange.Text = "Resume"
.View.State = ppSlideShowPaused
End If
End With
End Sub
'===== End of Code =====

Hope this helps.

Bill Foley
www.pttinc.com

Rick Alber <rick....@buildpoint.com> wrote in message
news:uuDsYZqdAHA.1320@tkmsftngp02...

[Sonia]

Rick, could you tell us more about how your presentation is going to be used? If you plan to
distribute to other systems via CD, and the PowerPoint Viewer will be used by your users, that would
help us determine whether a VBA or non-VBA solution is best for you. You see, the Viewer does not
support VBA. Yes, I know. That's a big disappointment, but it's a fact. Therefore, those of us
who regularly design presentations for distribution to other systems avoid using any VBA that must
be a part of the final presentation file. You can join the campaign for an improved Viewer by
submitting a "wish" to Microsoft (see my sig.).

______________________________________________________
Sonia Coleman, MS PowerPoint MVP Team
http://www.soniacoleman.com/
Got a PowerPoint wish or suggestion?
Email msw...@microsoft.com with PowerPoint in the subject line.
Make one wish per E-Mail to ensure attention from Microsoft!

"Rick Alber" <rick....@buildpoint.com> wrote in message news:uuDsYZqdAHA.1320@tkmsftngp02...

[Shyam Pillai]

Thanks Bill, a couple more examples which I had posted.

' - - - - - Example Set 1 - Hiding the shapes - - - - - -
' The drawback of this method is that if the Pause button is not visible
' when you exit the show for some reason, you would have to run code
' to make it visible again.

Sub PauseShow()
With SlideShowWindows(1)
.View.State = ppSlideShowPaused
.Presentation.SlideMaster.Shapes("Pause").Visible = False
.Presentation.SlideMaster.Shapes("Resume").Visible = True
End With
End Sub

Sub ResumeShow()
With SlideShowWindows(1)
.View.State = ppSlideShowRunning
.Presentation.SlideMaster.Shapes("Pause").Visible = True
.Presentation.SlideMaster.Shapes("Resume").Visible = False
End With
End Sub
' - - - - - End Of Set 1

' - - - - - Example Set 2 - Manipulating the Z-order
' I prefer this approach when using two button approach
' because I don't neccessarily need code to bring the Pause
' button to Top while running the show, it can be done thru
' the Draw Menu. Since the shape are overlaying each
' other sending one behind the other brings the other to the top.

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
' - - - - - End Of Set 2 - - - - -

--

Regards
Shyam Pillai

http://officetips.homepage.com
--
"PTT, Inc." <ptt...@itexas.net> wrote in message
news:#$ZaGB5dAHA.1960@tkmsftngp04...