control panel

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

hi from german

there are buttons & actions for 'back','next' &'end' in
powerponit. what about the possibility of 'halt/pause' a
automatic presentation with an standard/costumized button
and a 'play'-thing for continue?

thanx for answers
 
While you are in the slide show mode, pressing the Letter 'S' will start/stop
the slideshow, depressing the letter 'B' or 'W' will give you a blank black or
white screen as well as stop/pause the show.

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


hi from german

there are buttons & actions for 'back','next' &'end' in
powerponit. what about the possibility of 'halt/pause' a
automatic presentation with an standard/costumized button
and a 'play'-thing for continue?

thanx for answers
 
I also found this which I posted some time back. requires VBA

-----------------<snip>-----------------------
Here is some code that was passed on to me by the VBA guru Shyam Pillai, using a
couple of buttons
Pause and Resume. I use the second example all the time. Keeping in mind, if
your using the viewer it ain't gonna work

I'll give you two different approaches to the same. One which hides the buttons
alternately and the other which merely manipulates the Z-order. The latter
requires the buttons to be overlapping to function as required.

- - - - - 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
necessarily 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 - - - - -


------------------<snip>-----------------------

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


While you are in the slide show mode, pressing the Letter 'S' will start/stop
the slideshow, depressing the letter 'B' or 'W' will give you a blank black or
white screen as well as stop/pause the show.

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


hi from german

there are buttons & actions for 'back','next' &'end' in
powerponit. what about the possibility of 'halt/pause' a
automatic presentation with an standard/costumized button
and a 'play'-thing for continue?

thanx for answers
 
Andreas,
I like your idea of having a "pause" and "continue" feature included in the
"Action Buttons".
The problem with adding this routine via VBA, is that VBA is not supported
within "package for CD".
Also, the "short-cut" keys do work, but not all viewers of PPT shows are
aware that they even exist.

Andreas, you should add this on Microsoft's "wish list" web page so that
they will consider the idea in their next version of PPT. The MS "wish
list" web page is located at
http://register.microsoft.com/mswish/suggestion.asp

I will also place my request on their "wish list" page. If Microsoft sees
that a lot of people are interested in the new feature, it has a better
chance of being included in the next version.


Michael Koerner said:
I also found this which I posted some time back. requires VBA

-----------------<snip>-----------------------
Here is some code that was passed on to me by the VBA guru Shyam Pillai, using a
couple of buttons
Pause and Resume. I use the second example all the time. Keeping in mind, if
your using the viewer it ain't gonna work

I'll give you two different approaches to the same. One which hides the buttons
alternately and the other which merely manipulates the Z-order. The latter
requires the buttons to be overlapping to function as required.

- - - - - 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
necessarily 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 - - - - -


------------------<snip>-----------------------

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


While you are in the slide show mode, pressing the Letter 'S' will start/stop
the slideshow, depressing the letter 'B' or 'W' will give you a blank black or
white screen as well as stop/pause the show.

--
<>Please post all follow-up questions/replies to the newsgroup<>
<><><>Do Provide The Version Of PowerPoint You Are Using<><><>
<><><>Do Not Post Attachments In This Newsgroup<><><>
Michael Koerner [MS PPT MVP]


hi from german

there are buttons & actions for 'back','next' &'end' in
powerponit. what about the possibility of 'halt/pause' a
automatic presentation with an standard/costumized button
and a 'play'-thing for continue?

thanx for answers
Click to expand...
 
Back
Top