VBA/ Macros Conditional formatting Bar graph

[Jzfbkr]

Im wondering if anyone can help me im looking to make a large number of histograms change colour depending on the bar value.

If the value is below 0 (<0) I need the bar to be green RBG (0,255,0)
if the value is above 0 (>0) i need the bar to change red RBG (255,0,0)

Does anyone have any ideas of how I can achieve this.

Any help will be greatly appreciated.

Regards,

Joe

 

[VorLag]

Im wondering if anyone can help me im looking to make a large number of histograms change colour depending on the bar value.

If the value is below 0 (<0) I need the bar to be green RBG (0,255,0)
if the value is above 0 (>0) i need the bar to change red RBG (255,0,0)

Does anyone have any ideas of how I can achieve this.

Any help will be greatly appreciated.

Regards,

Joe

What you can do is use your macro recorder to get some of the language set up. Click on one data point and change the color to whatever you want to use then you can add an If statement to get a macro to update the colors of data points.

So, it might look like this

If Range("A1").Value > Range("B1").Value Then
    ActiveSheet.ChartObjects("Chart 1").Activate
    ActiveChart.SeriesCollection(1).Points(5).Select
    With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent1
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Solid
    End With
ElseIf Range("A1").Value < Range("B1").Value Then
     With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.ObjectThemeColor = msoThemeColorAccent2
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        .Solid
    End With
End If

 

[Jzfbkr]

Firstly, Thanks for your reply, I'm very new to using macros so I need to make this function as simple as possible. Is there is a simpler way to achieve?

Thanks again