Seeking method to change bar chart data point color based on value

[auto.pilot]

Using XL 2010, I am able to format a bar chart data series with two different colors if some of the values are negative. Checking the 'Invert if negative' box allows me to choose colors for positive and negative values. Ideally, I'd like to create bar charts that are two colors with a qualifier other than positive/negative. i.e.: Green bar if data point is equal to or greater than 10 and red if data point is below 10. Is there any way to do this?

Thanks

Jim

 

[Worf]

Hello Jim


I suppose you already discovered how to do it:

Sub Jim()
Dim arr, i%, p As Point
arr = ActiveChart.FullSeriesCollection(1).Values
For i = LBound(arr) To UBound(arr)
    Set p = ActiveChart.FullSeriesCollection(1).Points(i)
    Select Case arr(i) > 10
        Case True
            p.Format.Fill.ForeColor.RGB = RGB(10, 250, 10)
        Case False
            p.Format.Fill.ForeColor.RGB = RGB(250, 10, 10)
    End Select
Next
End Sub