Vba to change colour of shapes based on cell values

[Vokesie]

Good evening all, I have created a map formed of 24 shapes, which I would like to change the colour based on a cell value. each shape will link to a cell.

When the cell value changes depending on the value the colour of the auto shape A reduction green, increase red, and no change Amber.

I don't have any VBA to show you as i not 100% sure where to start

Thanks

 

[igold]

Hi,

You have not really provided a lot to work with so perhaps this will help you get started. This code changes the color of a Shape named "Rectangle 1" to the color RED (RGB= 255,0,0).

Sub colorShape()


    Dim R1 As Object
    Set R1 = ActiveSheet.Shapes.Range("Rectangle 1")
    R1.Select
    With R1.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
    
End Sub

I hope this helps.

igold