Excel VBA help

[KarmaStrikesBack]

I have 2 shapes, 1 and 2.

My code is

If ActiveSheet.Shapes(“Shape 1”).Fill.ForeColor.RGB = RGB(0, 255, 0) Then
ActiveSheet.Shapes(“Shape 2”).Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
ActiveSheet.Shapes(“Shape 2”).Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
End Sub


However, i do not know how the code should start.

Whatever colour i changed Shape 1 to, Shape 2 does nothing. I have tried
sub worksheet_change(byval as blah blah blah)

Wuhan, virus city of China HardwareZone Forums app

 

[davidktw]

I have 2 shapes, 1 and 2.

My code is

If ActiveSheet.Shapes(“Shape 1”).Fill.ForeColor.RGB = RGB(0, 255, 0) Then
ActiveSheet.Shapes(“Shape 2”).Fill.ForeColor.RGB = RGB(255, 0, 0)
Else
ActiveSheet.Shapes(“Shape 2”).Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
End Sub


However, i do not know how the code should start.

Whatever colour i changed Shape 1 to, Shape 2 does nothing. I have tried
sub worksheet_change(byval as blah blah blah)

Wuhan, virus city of China HardwareZone Forums app

This might interest you

Sub Button1_Click()
    Rem Debug.Print ActiveSheet.Shapes.Count
    For i = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(i).Name = "Shape " & i
        Rem ActiveSheet.Shapes(i).Fill.ForeColor.RGB = RGB(0, 0, 255)
        ActiveSheet.Shapes(i).Fill.ForeColor.RGB = RGB(Int(Rnd() * 256), _
                                                       Int(Rnd() * 256), _
                                                       Int(Rnd() * 256))
    Next i
End Sub

 

[KarmaStrikesBack]

thanks for the reply.

I already have a button to toggle the shape colours.

I am looking for the code that recognize shape 1’s colour so that shape 2 will change colour accordingly. See my condition in the code above..

Wuhan, virus city of China HardwareZone Forums app

 

[davidktw]

thanks for the reply.

I already have a button to toggle the shape colours.

I am looking for the code that recognize shape 1’s colour so that shape 2 will change colour accordingly. See my condition in the code above..

Wuhan, virus city of China HardwareZone Forums app

Read this

https://stackoverflow.com/questions/42442940/excel-vba-shapes-textbox-onchange-event

 

[KarmaStrikesBack]

Thanks i will try it out.

Wuhan, virus city of China HardwareZone Forums app