VBA Event help, change shape of color as per option selections

[Mallesh23]

Hi Team

Need vba help,

Task is if I click on Fruits option Shape of color should be blue
if I click on Vegetables option Shape of Color should be Red

I have linked cell into Range("a1") value

There is single shape. just for reference two shapes shown . how to achieve this , I tried no luck

 

[Jaafar Tribak]

Here is one way:: Assign this macro to both option buttons:

Sub Macro()
    With ActiveSheet.Shapes("rectangle 1").Fill.ForeColor  '<< change shape name to suit.
        If UCase(ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.Text) = "FRUITS" Then
            .RGB = RGB(0, 0, 255)
        Else
            .RGB = RGB(255, 0, 0)
        End If
    End With
End Sub

 

[Mallesh23]

Hi Jaafar,

Thanks for your help, I am looking for an event to occur
if clicks on option buttons ............... color of shape should get changed. I dont want to assign a macro

otherwise I have to assign two macros on below option button


1) fruits button
2) Vegetables button

 

[Jaafar Tribak]

Clicking on the option buttons won't raise the worksheet_change event even if you link the option buttons to a a cell like you did.

Simply assign the macro I posted to both option buttons and when you click on either of them, the shape will change color as required.

PS: Make sure to edit the shapes name in the code to suit.

Also, you won't need the link cell anymore if you go down this route.

 

[Mallesh23]

Hi Jaafar,

Thanks for your help, code is working, otherwise I would have kept searching on event.

So assigned Macro and code is working now.


Thanks
mg

 

[Jaafar Tribak]

Hi Jaafar,

Thanks for your help, code is working, otherwise I would have kept searching on event.

So assigned Macro and code is working now.


Thanks
mg

Glad I could be of help. Thank you.