That worked great. Thanks
"Jon Peltier" wrote:
An alternative, non VBA approach, which allows different legends for
positive and negative formats:
http://peltiertech.com/Excel/Charts/...nalChart1.html
- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______
"RominallL" wrote in message
...
Okay, don't know if it's do-able but I'd like to have all my series with
a
negative value be red and all positive be green.
I tried something like this
For i = 1 to SeriesNum
SerVal = ActiveChart.Series(i).value
If SerVal <0 then
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Else
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End if
Next i
It doesn't work. Am I going about this the wrong way?