VBA～指定したデータマーカーの色を変更しよう～Excel

VBAで折れ線グラフの指定したデータマーカーの色を変更する方法を解説します。

指定したデータマーカーの色を変更したい場合はSeries.PointsメソッドのFillFormat.ForeColorプロパティで設定します。Pointsオブジェクトの()内にはポイントインデックス番号を指定します。ポイントインデックス番号はデーターマーカーの左から1,2,3・・・と割り振られています。ただし軸が反転している場合は右から1,2,3・・・となります。

既にグラフがある場合

下の画像において下のコードを実行すると木曜日のデータマーカーの色がオレンジに設定されます。

Sub test1()

ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(255, 192, 0)

End Sub

グラフのインデックス番号はグラフの作成順に割り振られます。今回はグラフが1つしかないのでグラフのインデックス番号は1となりChartObjects(1)となります。

グラフ作成時に折れ線グラフの指定したデータマーカーの色を変更

下のコードを実行するとグラフ作成時に折れ線グラフの指定したデータマーカーの色を変更されます。

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

.ChartType = xlColumnClustered
.SetSourceData Range(Range("A3"), Range("B9"))

.SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(255, 192, 0)

End With

End Sub

コードの説明

WithからEnd Withまでがグラフの作成、設定です。

ActiveSheet.Shapes.AddChart.Chart

グラフを書くためのキャンバスを作成しています。

.ChartType = xlColumnClustered

グラフの種類を設定しています。xlColumnClusteredは棒グラフの集合縦棒になります。

.SetSourceData Range(Range("A3"), Range("B9"))

グラフのデータ範囲を設定しています。

.SeriesCollection(1).Points(4).Format.Fill.ForeColor.RGB = RGB(255, 192, 0)

木曜日のデータマーカーの色をオレンジに変更しています。