Bar graph colors

[Av8tordude]

Is there a way to make bar graph above 0 green and below 0 red in vba?

With MyChart
    .HasTitle = True
    .HasLegend = False
    .ChartTitle.Text = Range("B1")
    .Axes(xlValue).TickLabels.NumberFormat = "$#,##0;[Red]-$#,##0"
    .Axes(xlCategory).TickLabelPosition = xlTickLabelPositionLow
    .ChartGroups(1).GapWidth = 150
    Wks.ChartObjects(1).Chart.ShowAllFieldButtons = False
End With

 

[Jon Peltier]

Select the series and press Ctrl+1 to open the Format Series task pane.
Select Solid Fill, and check the Invert if Negative box.
Choose your colors for positive and negative.

This can be done with the following VBA code. I used the macro recorder, but that completely messed it up.

Sub Macro1()
    With MyChart.SeriesCollection(1)
      .InvertIfNegative = True
      With .Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(0, 176, 80)
        .BackColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
      End With
    End With
End Sub