セルの値に基づいてグラフ系列の色を変更する方法

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