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.
--
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

--
__________________________________
HTH

Bob

"Nikki" <(E-Mail Removed)> wrote in message
news:2C44170F-8329-4C32-AB1F-(E-Mail Removed)...
>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.
> --
> Thanks,
> Nikki

Thanks - that is perfect.
--
Thanks,
Nikki


"Bob Phillips" wrote:

>
> 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
>
> --
> __________________________________
> HTH
>
> Bob
>
> "Nikki" <(E-Mail Removed)> wrote in message
> news:2C44170F-8329-4C32-AB1F-(E-Mail Removed)...
> >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.
> > --
> > Thanks,
> > Nikki
>
>
>