http://akoul.blogspot.com/2011/05/color-chart-series-on-basis-of-valeus.html
try this macro
Sub format_ur_chart()
Dim srs As Series
For Each srs In Sheets(1).ChartObjects("Chart 2").Chart.SeriesCollection
For i = LBound(srs.Values) To UBound(srs.Values)
If srs.Values(i) < 0 Then
srs.Points(i).I
Dear Members,
Here with this mail I have attached excel sheet in which a simple bar
chart prepared, but I won't be able to make bar color change automatically
based on data value for that bar
I want positive data value bar as blue and negative data value bar to be
in red and this s