This example turns on up and down bars for chart group one on Chart1 and then sets their colors. The example should be run on a 2-D line chart containing two series that intersect at one or more data points.
With Charts("Chart1").ChartGroups(1)
.HasUpDownBars = True
.DownBars.Interior.ColorIndex = 3
.UpBars.Interior.ColorIndex = 5
End With