"Best practise" when launching another PPT show from a show in Kiosk-mode

  • Thread starter Thread starter Martin Stender
  • Start date Start date
M

Martin Stender

Hi all,

Basically the subject says it all, but I have a collection of
ppt-files, that are interlinked, and all run in kiosk-mode (all
navigation is handled by hyperlinks).

But one presentation - the corporate presentation - is meant to
presented in the usual way (mouse-click to advance to next slide, for
example), but that presentation inherits the kiosk-mode from the
presentation that calles it.

Now - I have made a macro in each of the kiosk-mode-presentations, and
then execute that macro by clicking an autoshape.

But I can't for the life of me figure out how to do this in the right
way.

I've tried with the 'Presentation.open' method and a few others (I'm
not at my work-machine right now), but none of them does the job right.

What I need, is a macro that calls a pps, run the presentation, and
when the user hits 'esc' (or in other ways exits the corporate
presentation) - the presentation closes, leaving the kiosk-mode
presentations running beneath it.

What is the right way of doing this - anyone know?

Big, big thanks in advance!

Martin
 
I think you're probably going to have to abandon Kiosk mode, because, as
you've seen, all presentations inherit that setting.

You could just leave the files as "presented by speaker," but in the
transitions section, remove the checks in both ther "manual" and "advance
automatically after" boxes.
 
Hi Martin,

This macro goes in the main presentation.
When invoked, it opens the second presentation in speaker mode.
Problem is, when the user hits ESC, it drops the second presentation into edit
view rather than closing it. It's a starting point ...

Sub CloseButNoCigar()

Dim oPres as Presentation
' open the presentation w/o a window
Set oPres = Presentations.Open(ActivePresentation.Path & "\" _
& "SecondPresentation.PPT", msoFalse)

' Set it to speaker mode and run it
With oPres.SlideShowSettings
.ShowType = ppShowTypeSpeaker
.Run
End With

End Sub

The same macro might also load an event handler that closes the second
presentation when the slide show ends?
 
Sorry about the late reply - yes, thank you Steve. That worked fine. I
had to do a little more, since there's no way around opening an editing
window when opening a show this way.

Basically, I just got the id of the current window before opening the
new one, then re-activated that before running the new pps. That way
the empty editing window don't be in the front of the running shows
when exiting the opened pps.

Big thanks!
Martin
 
Back
Top