Vis. Basic In Excel Changing the Color of Shapes

[campbemr]

In an excel spreadsheet there are shapes and I need to be able to change the color of the shape when I click on the shape. Like if I click the shape it automatically changes to blue. Then when I click it again it changes to red. These colors will be predetermined. How can this be done?

 

[MarkSweetland]

Assuming there is a rectange object on the active sheet named "Rectangle 1", you can create a macro that executes on its click event:

ActiveSheet.Shapes("Rectangle 1&quot.Select
'sets the color index in the current color scheme. Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
' or via RBG method
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(12, 23, 222)

Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid

Mark