Require macro to change shape colour when running presentation

[Guest]

Hi,
Can anyone help me, please? I need a presentation which has a number of
shapes on a slide. When a shape is clicked, the user can press one of 2 keys
to change the shape from its default colour to a different colour.

eg. press "y" for yellow or "g" for green, but only upon the shape being
clicked first.

Any advice would be greatly appreciated. Thank you.

 

[Bill Dilworth]

Try something like this:

=================
Sub Sprout(oShp As Shape)

If MsgBox("Change this shape?", _
vbYesNo) = vbYes Then
oShp.Fill.Solid
oShp.Fill.ForeColor.RGB = vbGreen
End If

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

--
Bill Dilworth
A proud member of the Microsoft PPT MVP Team
Users helping fellow users.
http://billdilworth.mvps.org
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
yahoo2@ Please read the PowerPoint FAQ pages.
yahoo. They answer most of our questions.
com www.pptfaq.com
..