Sorry for the delay, getting ready for a class this morning. Try these
steps to get you started:
1. Open a blank presentation and create four slides
2. On Slide 1, right-click the toolbar area and click "Control Toolbox"
3. Click the "OptionButton" tool and draw a button on your slide
4. With the button selected, press CTRL+D twice to duplicate two more
buttons. Move as necessary to align them (you can use the aligning tools
under the "Draw" button on the Drawing Toolbar"
5. Right-click each button and select "Properties"
6. Set the "Caption" property to "Slide 1", "Slide 2", "Slide 3" for each of
them respectively
7. Click the "CommandButton" control from the Control Toolbox and draw a
button on the same slide
8. Right-Click the button and select "Properties" (unless the window is
still open)
9. Type "Select Slide" as the "Caption" property
10. Close the "Properties" window
11. Double-click the button and copy/paste the following code where the
cursor is:
Dim Slide2 As OptionButton
Dim Slide3 As OptionButton
Dim Slide4 As OptionButton
Set Slide2 =
ActivePresentation.Slides(1).Shapes("OptionButton1").OLEFormat.Object
Set Slide3 =
ActivePresentation.Slides(1).Shapes("OptionButton2").OLEFormat.Object
Set Slide4 =
ActivePresentation.Slides(1).Shapes("OptionButton3").OLEFormat.Object
If Slide1.Value = True Then
ActivePresentation.SlideShowWindow.View.GotoSlide (2)
End If
If Slide2.Value = True Then
ActivePresentation.SlideShowWindow.View.GotoSlide (3)
End If
If Slide3.Value = True Then
ActivePresentation.SlideShowWindow.View.GotoSlide (4)
End If
12. Close the Visual Basic Editor window or merely click the PowerPoint
taskbar button at the bottom to return to your slides
13. Go to each of the three other slides and set the Slide layout to have a
Title placeholder on it and type something in each title to ensure you know
it is working (I typed "Slide 2", "Slide 3", "Slide 4")
14. Go to Slide 2 and click the "AutoShapes" icon on the Drawing Toolbar,
select "Action Buttons" and click the top left button (Custom). Draw a
button on the slide.
15. Click the "Hyperlink to" dropdown arrow and select "First Slide". Click
"OK" to close.
16. Right-click the button and select "Add Text". Type "Return". Press
"ESC" to select the button (get out of edit typing mode)
17. Press CTRL+C to copy the button.
18. Press the PAGEDOWN button to go to the next slide and press CTRL+V to
paste the button on the next slide. Repeat for the last slide
19. Go back to the first slide and go into Slide Show Mode and test it out.
Hope this gets you started. Remember, once you learn VBA you will be hooked
and will never get a good night's sleep again! HA!
--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor - XP
www.pttinc.com
Check out PPT FAQs at:
http://www.rdpslides.com/pptfaq/