MSChart简单应用

MSChart
我想不同的行显示不同的颜色 怎么写方法啊

http://download.csdn.net/source/1483925

VB code

Sub Macro1()
'
' Macro1 Macro
' 宏由 微软用户 录制，时间: 2011-7-21
'

'
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("A1:B30"), PlotBy _
        :=xlColumns
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
End Sub

不是我想要的 我想实现的是柱状图不同行设置不同的颜色

MSChart1.Plot.SeriesCollection(1).DataPoints(-1).Brush.FillColor.Set 250, 0, 0
MSChart1.Plot.SeriesCollection(2).DataPoints(-1).Brush.FillColor.Set 250, 250, 0
…… 
有多少数据设置多少