VBA～グラフ要素の文字を装飾しよう～Excel

VBAでグラフのグラフタイトルを装飾する方法を解説します。

グラフタイトルを装飾した場合、ChartTitleオブジェクトのFont.Boldプロパティ、Font.Italicプロパティ、Font.Underlineプロパティを設定します。それぞれ太字、斜体、下線に対応しています。

既にグラフがある場合

下の画像において下のコードを実行するとグラフタイトルが装飾されます。

Sub test1()

With ActiveSheet.ChartObjects(1).Chart.ChartTitle

.Font.Bold = True
.Font.Italic = True
.Font.Underline = True

End With

End Sub

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

グラフ作成時にグラフタイトルも装飾

下のコードを実行するとグラフ作成時にグラフタイトルも装飾されます。

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

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

.HasTitle = True
.ChartTitle.Text = "週間売上個数"

.ChartTitle.Font.Bold = True
.ChartTitle.Font.Italic = True
.ChartTitle.Font.Underline = True

End With

End Sub

コードの説明

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

ActiveSheet.Shapes.AddChart.Chart

グラフエリアを追加しています。

.ChartType = xlColumnClustered

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

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

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

.HasTitle = True

タイトルの要素を追加しています。

.ChartTitle.Text = "週間売上個数"

タイトルを週間売上個数に設定しています。

.ChartTitle.Font.Bold = True

タイトルを太字にしています。

.ChartTitle.Font.Italic = True

タイトルを斜体にしています。

.ChartTitle.Font.Underline = True

タイトルに下線を付けています。