“end ALL shows†command?

[paxinter]

Is there a way to modify an “end show†action so that it will close all
slideshows that are open?

Using PowerPoint Home-and-Student 02007 in kiosk mode, I broke a large
program into separate smaller slideshows with navigation between them. I
want the user to be able to exit the program with the push of a button, and
not have to close all the separate slideshows that had been opened.

Thanks for any suggestions, code, and instructions you can provide.

 

[Chirag]

The following macro will close all slide shows:

Sub CloseAllSlideShows()
Do While SlideShowWindows.Count > 0
SlideShowWindows(1).View.Exit
Loop
End Sub

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html

 

[David Marcovitz]

I have a question about this code. Will it stop executing before it
completes? Since the current slide show is the first one to close and
that is the one running the code, I wonder if it will stop running after
closing the first slide show. I wonder if one of the following might be
better:

Sub CloseAllSlideShows()
Do While SlideShowWindows.Count > 0
SlideShowWindows(SlideShowWindows.Count).View.Exit
Loop
End Sub

or

Application.Quit

I haven't tried any of these so I'm not sure which is best. I'm just
wondering.

--David

 

[Chirag]

A presentation macro's life is tied with the presentation in which it is
contained. It can run irrespective of whether any slide show is active. You
can place your (or my) macro in a presentation and run it even if its slide
show is not running - it will exit out of slide shows of other
presentations.

- Chirag

PowerShow - View multiple PowerPoint slide shows simultaneously
http://officeone.mvps.org/powershow/powershow.html