MSChart1怎么样设置每一个柱状图颜色

Option Explicit

Private Sub Form_Activate()
  Call GraphShowBasic
  Dim show_arr(9, 2)
  show_arr(0, 1) = "加"
  show_arr(0, 2) = 5
   
  show_arr(1, 1) = "减"
  show_arr(1, 2) = 10
   
  show_arr(2, 1) = "乘"
  show_arr(2, 2) = 15
   
  show_arr(3, 1) = "除"
  show_arr(3, 2) = 12
   
  show_arr(4, 1) = "除"
  show_arr(4, 2) = 14
   
  show_arr(5, 1) = "除"
  show_arr(5, 2) = 8
   
   
  show_arr(6, 1) = "除"
  show_arr(6, 2) = 16
   
   
  show_arr(7, 1) = "除"
  show_arr(7, 2) = 13
   
  show_arr(8, 1) = "除"
  show_arr(8, 2) = 6
   
   
  show_arr(9, 1) = "除"
  show_arr(9, 2) = 20

  With MSChart1
  .RowCount = 10
  .ChartData = show_arr
  .Column = 1
  .Refresh
  End With
   
   
End Sub

 Private Sub GraphShowBasic()
  With MSChart1.Plot.Backdrop
   
  ' 除非将样式属性正确地设置为VtFillStyleBrush
  ' 否则不会有颜色显示。
  .Fill.Style = VtFillStyleBrush
  .Fill.Brush.FillColor.Set 100, 255, 200
  ' 添加边框。
  .Frame.Style = VtFrameStyleThickInner
  ' 将样式设置为显示阴影。
  .Shadow.Style = VtShadowStyleDrop
  End With
  With MSChart1.Plot
  ' 将样式设置为实心。
  .Wall.Brush.Style = VtBrushStyleSolid
  ' 将颜色设置为。
  .Wall.Brush.FillColor.Set 255, 255, 0
  End With
  With MSChart1.Plot '将绘图底色设置为蓝色。
  .PlotBase.BaseHeight = 200
  .PlotBase.Brush.Style = VtBrushStyleSolid
  .PlotBase.Brush.FillColor.Set 0, 0, 255
  End With
  With MSChart1.Title.VtFont
  .Name = "趋势图"
  .Style = VtFontStyleBold
  .Effect = VtFontEffectUnderline
  .Size = 14
  .VtColor.Set 255, 0, 255
  End With
  End Sub

录制Excel宏，依照宏的代码来改写。