Excel VBA グラフ要素の色を変更する

Question

Excel2016です。

棒グラフにセルの値でラベルを設定しています。
特定のラベルだった場合に棒の色を変更したいのですが、うまく動きません。

Dim I As Integer
Dim dur As Variant

With Sheets("Test Graph").ChartObjects(1).Chart.SeriesCollection(1)
    dur = .DataLabel.Text
    For I = 1 To UBound(dur)
        If dur(I) = "Excellent" Then
            .Points(I).Interior.ColorIndex = 3
        End If
    Next I
End With
End Sub

Withの行で「アプリケーション定義またはオブジェクト定義のエラーです」となります。

ラベルの取得のあたりが違うように思うのですが、直し方がわかりません。
御教授頂けると大変助かります。

Comments

[ttyp03]

どこの行で何のエラーが発生するのか記載いただけると解決が早いと思いますよ。

[mochinn]

ありがとうございます。情報が不足しておりすみません。質問に追記します。

Answer 1

2010環境ですが、単純に棒グラフを作って動作させてみてもWithの行でエラーは発生しませんでした。
「アプリケーション定義またはオブジェクト定義のエラーです」が出ているようですから、
Sheets("Test Graph")
Sheets("Test Graph").ChartObjects(1)
Sheets("Test Graph").ChartObjects(1).Chart.SeriesCollection(1)
のいずれかが存在しないことになります。
グラフがあればCharObjectsはありそうなので、そうなるとシート名が違うのでしょうか。
確認してみてください。

ただWithの行が解決できても、その次の行からはエラーが多発しますので、次のように書き換えてみました。
ただし、これで要件を満たしているかはわかりませんので、参考程度に考えてください。

With Sheets("Test Graph").ChartObjects(1).Chart.SeriesCollection(1)
    .HasDataLabels = True
    For I = 1 To .DataLabels.Count
        If .DataLabels(I).Text = "Excellent" Then
            .Points(I).Interior.ColorIndex = 3
        End If
    Next
End With

Comments

[mochinn]

確かにSheetsの指定が間違っている気がします。
通常のWorksheetでなく、グラフシートなのですが、その場合オブジェクトの指定方法は変わってくるのでしょうか？

[ttyp03]

グラフシートの場合は、SheetsではなくChartsになるようですね。
なので、Withの行は、こうなります。
With Charts("Test Graph").SeriesCollection(1)

[mochinn]

御教授頂いた内容で、うまく想定通りの動作をするようになりました。
短時間で解決して感謝です。ありがとうございました！！！！

[ttyp03]

手探りでの回答でしたが、解決できたようでよかったです。