Link to a Random Slide

  • Thread starter Thread starter Javier Gomez
  • Start date Start date
J

Javier Gomez

Hi all !!!

Is there a way to create a link to a random slide in an specific group of
slides?

I need to setup a kiosk presentation. There will be a main page in which the
user can select from some icons/options and I pretty much have everything
covered there. Now, one of the icons there must take you to a random slide
from a group of 10 slides. Can this be done?

Thanks for your help,
 
It can be done.

Are you up for some coding in VBA?

B


--
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
Are you up for some coding in VBA?

Sure. I didn't knew that you could use VBA in PowerPoint (I have some
experience with VBA in Excel)... I just opened the VBA/Macro editor and it
was there. That's a step in the right direction (albeit a very small one).
:-)

Can you (or someone else) give me some pointers or I'm on my own?

I really appreciate your help.

Thanks,
 
Ok, this should do the trick for you.

Just copy this macro into your VBA, then assign an Action Setting (On mouse
click -- Run Macro -- RandJump) to your trigger box:

======================
Sub RandJump()
'Set-up
Dim ArrNum As Integer
Dim SlideRefNum(5) 'This number _
will need to be adjusted _
depending on how many different _
targeted slides you set?


'Load the slide numbers that will be _
targeted. This method is done in _
case the random jump slide range _
is not consecutive.
SlideRefNum(1) = 4
SlideRefNum(2) = 6
SlideRefNum(3) = 9
SlideRefNum(4) = 14
SlideRefNum(5) = 20

'Pick a number, any number _
between 1 and number of targeted slides.
ArrNum = Int(Rnd * UBound(SlideRefNum, 1)) + 1

'Go to the slide referenced _
by that number in SlideRefNum array
SlideShowWindows(1).View.GotoSlide _
SlideRefNum(ArrNum)

End Sub
======================

Watch for NG text wrap.
B


--
Please spend a few minutes checking out www.pptfaq.com This link will
answer most of our questions, before you think to ask them.

Change org to com to defuse anti-spam, ant-virus, anti-nuisance
misdirection.
 
Back
Top