how to create a pause action button

G

Guest

I see the action buttons that will show in a slide show such as "go to next
slide" or "go back to the beginning". Is there an action button for "pause"?
If not, can I create one?
 
G

Guest

Unless you are into vba the easiest way is to create a one slide custom show
(make the slide then slide show > custom shows> new) Use the pause button to
hyperlink to it and then tick "show and return"

This method though will not continue to show the current screen during the
pause.

To pause you could also use the "S" key which will retain screen info

vba solution

Copy both these subs to a module in vb editor

With your pause button make the mouseover action macro - pauses and the
click action macro start again

Move the mouse over the button to pause and click when you want to restart
(or just use two buttons)

Sub pauses()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

Sub startagain()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
G

Guest

John, Excellent!! Thanks so much.

John Wilson said:
Unless you are into vba the easiest way is to create a one slide custom show
(make the slide then slide show > custom shows> new) Use the pause button to
hyperlink to it and then tick "show and return"

This method though will not continue to show the current screen during the
pause.

To pause you could also use the "S" key which will retain screen info

vba solution

Copy both these subs to a module in vb editor

With your pause button make the mouseover action macro - pauses and the
click action macro start again

Move the mouse over the button to pause and click when you want to restart
(or just use two buttons)

Sub pauses()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowPaused
End Sub

Sub startagain()
ActivePresentation.SlideShowWindow.View.State = ppSlideShowRunning
End Sub
--

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
P

Paul

I tried this solution, but but got a DOS pop-up window telling me to "Press
any key to continue...".
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top