Mouseover images

[sanj]

Yep thats what I'll do.

Thanks David!

Page Up and Space Bar won't work, but you can make the button large
enough so fine mouse control is not necessary.
--David



--
David M. Marcovitz
Director of Graduate Programs in Educational Technology
Loyola College in Maryland
Author of _Powerful PowerPoint for Educators_
http://www.loyola.edu/education/PowerfulPowerPoint/

 

[Steve Rindsberg]

Thanks Steve,

That's great, the only problem is if the presenter uses a mouse a the front
screen it will not work if the page up /space bar are used,

Ah, but you're going to trap that out by using Slide Show, Set Up Show to put
the presentation in Kiosk mode. The only way they're going to get off Slide 1
is by using your buttons or hitting the ESC key. ;-)


its a shame you

cannot add the macro to when the first slide is viewed.

Regards,

Sanjay

Thanks Steve for your email, I got this working (I was placing the code in
the slide VB code instead of in a module)

Ah, thanks for mentioning that. I hadn't thought of that trick.

Could I ask how can I set that shapes are always hidden when the show
starts, with the ToggleVisibility() code if you set it visible in a show
then end the show and restart it the shapes are then visible, I would like
them to be hidden always whenever the show starts.

I'd do it this way: make the first slide of the presentation a welcome screen.
Add a button or a full screen rectangle or whatever, just something that the
user clicks to begin the show.

That shape gets assigned a Run Macro action setting.
The macro it's assigned to runs through the whole presentation and makes each
tagged shape invisible:

Sub HideThemAll()
Dim oSh as Shape
Dim oSl as Slide
For each osl in ActivePresentation.Slides
For each oSh in oSl.Shapes
If oSh.Tags("ToggleMe") = "YES" Then
oSh.Visible = False
End if
Next
Next
' and advance to slide 2 to start the show
ActivePresentation.SlideShowWindow.View.GotoSlide(2)

End Sub