end show

[Bill Handler]

I am creating some powerpoint files (in Office v.X) to be used in a
stand alone information kiosk. The kiosks will be using PC hardware,
and a current, an unknown version of Powerpoint... 1 presentation is a
loop of the available topics, and then there are seperate presentations
for each topic. Getting to the topics works fine, it's the getting back
to the loop that's a problem. It's set up so that if the person clicks
on the last slide in the topic presentation, it ends the show, and goes
back to the loop which is still running. My problem is creating a
'timeout' feature so that if someone walks away, the topic presentation
will automatically end the show, and revert back to the loop. This is
what I have so far, but it ends the loop too.

Sub delay()
Dim PauseTime, Start
PauseTime = 15 ' set duration of pause.
Start = Timer ' set start time.
If Timer < Start + PauseTime Then
Do While Timer < Start + PauseTime
DoEvents ' yield to other processes.
Loop
End If
Presentations(1).Close
End Sub

this macro is set to the 'mouse over' button.

Any help is appreciated.......

Thanks,

bill

 

[John Reiher]

Hi Bill, what you want to do is more of a event handler than a timing
loop. You also want to ask this question in the PPT for windows group.
I've already redirected this topic to the microsoft.public.powerpoint
group. That's where the real VBA experts are.

Just one thing: If you're going to use the viewer, then VBA is not going
to work. None of the viewers, past, present, or future, support macros.

I am creating some powerpoint files (in Office v.X) to be used in a
stand alone information kiosk. The kiosks will be using PC hardware,
and a current, an unknown version of Powerpoint... 1 presentation is a
loop of the available topics, and then there are seperate presentations
for each topic. Getting to the topics works fine, it's the getting back
to the loop that's a problem. It's set up so that if the person clicks
on the last slide in the topic presentation, it ends the show, and goes
back to the loop which is still running. My problem is creating a
'timeout' feature so that if someone walks away, the topic presentation
will automatically end the show, and revert back to the loop. This is
what I have so far, but it ends the loop too.

Sub delay()
Dim PauseTime, Start
PauseTime = 15 ' set duration of pause.
Start = Timer ' set start time.
If Timer < Start + PauseTime Then
Do While Timer < Start + PauseTime
DoEvents ' yield to other processes.
Loop
End If
Presentations(1).Close
End Sub

this macro is set to the 'mouse over' button.

Any help is appreciated.......

Thanks,

bill

--
The Kedamono Dragon
PowerPoint MVP
Pull Pinky's favorite words to email me.
http://www.ahtg.net
Have Mac, will Compute

Check out the PowerPointers Shop at:
http://www.cafeshops.com/PowerPointers