Or you could modify it to...
Sub ToggleColor (oShp as Shape)
With oShp.Fill
If .ForeColor.RGB = RGB(255, 255, 102) Then
.ForeColor.RGB = RGB(100, 100, 102)
Else
.ForeColor.RGB = RGB(255, 255, 102)
End If
.Solid
End With
Any shape that you assign the Toggle color Macro to, will change when
clicked.
--
Bill Dilworth, Microsoft PPT MVP
===============
Please spend a few minutes checking vestprog2@
out
www.pptfaq.com This link will yahoo.
answer most of our questions, before com
you think to ask them.
Change org to com to defuse anti-spam,
ant-virus, anti-nuisance misdirection.
..
..
Jim Grady in Oldham said:
This FAQ does work, assuming you can code
http://www.rdpslides.com/pptfaq/FAQ00159.htm
I was stumped with this. I am trying to create a Blockbusters (Quiz game
in UK - probably from the US originally) type hexagon grid. Where I want to
change the colour of a hexagon if I click on it.
The following code is pretty close to what I want to do - but its a real
pain because I think I have to recreate this piece of code for each hexagon.
I would much rather be able to identify the object on which I clicked and
pass this as a parameter to a colour changing routine.