Kiosk Mode, VBA, Timeout and Return to Main menu

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

Guest

Hello,

I'll try to explain what i want to do
I have make a pps for an application on a touchscreen. There is menus and
submenus, and some video. On the first slide/menu, there is a video which
runs repetitly as a screensaver.

The first problem i've encountered is the animations which don't restart
when i came back on a slide. I tested differents methodes (slide blank
before, macro), it's work.
But my big problem is if i want to return to main menu from each slide after
a defined time (if the user leaves). I can't use the kioskassist add-ins
because in some slides there is simple animate menu and in some others slides
there is a long video. I can't use the custom shows because in kiosk mode,
the loop continuously is activated and it's impossible to leave a custom show
after entered in.

I tested vba but i'm beginner at this, so i don' know if i think correctly.
For example i try this :

Sub RunSubMenu01()

ActivePresentation.SlideShowWindow.Presentation.SlideShowSettings.EndingSlide
= 3
ActivePresentation.SlideShowWindow.View.GotoSlide 3, msoTrue
End Sub

The endingslide settings is applied when i end the show, not during the
show. I hope you 'll understand what i want to do ?

And sorry for my english :/

Tounet
 
Some others question in vba.
Is it possible to change slide orders during slideshow ?
Is it possible to add or remove slide during slideshow ?
 
Since its a touch screen do you have to use kiosk mode?

Yes because i don't want the icons at the left corner. And i use an
invisible cursor under windows, so it's work perfectly.
Finally, i found a way for doing what i want.
- I set up the show in kiosk mode, show all slides, use timings.
- I set an automating advance transition time for sub menu depending on
what it contains.
- i've write these macros wich use the hidden feature :

Sub RunSubMenu01()
With ActivePresentation
.Slides(3).SlideShowTransition.Hidden = msoFalse
.Slides.Range(Array(4, 5, 6, 7, 8)).SlideShowTransition.Hidden = msoTrue
.SlideShowWindow.View.GotoSlide 3, msoTrue
End With
End Sub

Sub RunSubMenu02()
With ActivePresentation
.Slides(4).SlideShowTransition.Hidden = msoFalse
.Slides.Range(Array(3, 5, 6, 7, 8)).SlideShowTransition.Hidden = msoTrue
.SlideShowWindow.View.GotoSlide 4, msoTrue
End With
End Sub

And it works perfectly ! :D
 
Back
Top