AutoShape color

[Nikki]

I need to make a traffic light using circles- Only one would be "on" at a
time (this doesn't need to be part of the code though).
You would click it to make it fill with color and click again to turn it off.
Thank you for any help you can give. I have tried a number of coding options
and can't get the color part to work.

 

[Bob Phillips]

Sub FillShapeColour()
Static fOn As Boolean

With ActiveSheet.Shapes(Application.Caller)

If fOn Then

.Fill.Visible = msoFalse
Else

.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 10
End If
End With

fOn = Not fOn
End Sub

 

[Nikki]

Thanks - that is perfect.
--
Thanks,
Nikki

Sub FillShapeColour()
Static fOn As Boolean

With ActiveSheet.Shapes(Application.Caller)

If fOn Then

.Fill.Visible = msoFalse
Else

.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 10
End If
End With

fOn = Not fOn
End Sub