Excel2016です。
棒グラフにセルの値でラベルを設定しています。
特定のラベルだった場合に棒の色を変更したいのですが、うまく動きません。
VBA
1Dim I As Integer 2Dim dur As Variant 3 4With Sheets("Test Graph").ChartObjects(1).Chart.SeriesCollection(1) 5 dur = .DataLabel.Text 6 For I = 1 To UBound(dur) 7 If dur(I) = "Excellent" Then 8 .Points(I).Interior.ColorIndex = 3 9 End If 10 Next I 11End With 12End Sub
Withの行で「アプリケーション定義またはオブジェクト定義のエラーです」となります。
ラベルの取得のあたりが違うように思うのですが、直し方がわかりません。
御教授頂けると大変助かります。
回答1件
あなたの回答
tips
プレビュー