如何使图表系列根据单元格值更改颜色

Question

我正在尝试根据单元格中的特定值来更改图表系列（点）的颜色。 但是，我不断收到一个对象必需的错误。

这是我的代码

Private Sub Worksheet_Change(ByVal Target As Range)

 If Target.Column = 12 And (Target.Row >= 2 And Target.Row <= 37) Then
  If Target.Value = "Stage Gate 5" Then Sheet15.ChartObjects(1).Chart.SeriesCollection(2).Points(1).Interior.Color = RGB(167, 34, 110)
  Else
  MsgBox ("error")
  End If
 End If
 End Sub

我的想法是，我有一个条形图，上面带有项目的开始和结束日期，并且它们经过阶段门，我需要根据阶段门来更改每个条的颜色。

任何人都能提供的任何帮助将不胜感激。

谢谢

Answer 1

尝试这个：

Private Sub Worksheet_Calculate()

If Range("M2") = "Stage Gate 5" Then 
    Sheet15.ChartObjects(1).Chart.SeriesCollection(2).Points(1).‌​Interior.Color = RGB(167, 34, 110)
Else
    Msgbox "error"
End If

End Sub