OfficeType
  1. ホーム
  2. Excel VBA
  3. グラフ
  4. グラフの文字色を一括で変更しよう

VBA～グラフの文字色を一括で変更しよう～Excel

VBAでグラフの文字色を一括で変更する方法を解説します。

グラフの文字色を一括で変更したい場合、ChartAreaオブジェクトのFont.Colorプロパティを設定します。

次にChartTitleオブジェクトのTextプロパティでタイトル名を指定します。

既にグラフがある場合

下の画像において下のコードを実行するとグラフの文字色が一括でオレンジに設定されます。

image-01 

Sub test1()

ActiveSheet.ChartObjects(1).Chart.ChartArea.Font.Color = RGB(255, 192, 0)

End Sub

image-02

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

セルのデータをタイトルにしたければ.ChartTitle.Text = Range("A1")のようにタイトルにセルを指定します。

セルのデータが変わるとタイトルも変わるようにしたい場合は.ChartTitle.Text = "='Sheet1'!A1"のように書けばタイトルがセル参照になります。

グラフ作成時にグラフの文字色も一括で変更

image-03

下のコードを実行するとグラフ作成時にグラフの文字色も一括で変更されます。 

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

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

.ChartArea.Font.Color = RGB(255, 192, 0)

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

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

image-04 

.ChartType = xlColumnClustered

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

image-05 

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

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

.ChartArea.Font.Color = RGB(255, 192, 0)

グラフの文字色を一括でオレンジに設定しています。

image-06