VBA～グラフタイトルの枠線を編集しよう～Excel

VBAでグラフタイトルの枠線を編集する方法を解説します。

グラフタイトルの枠線を編集したい場合、ChartTitleオブジェクトのBorder.Colorプロパティ、Border.Weightプロパティ、Border.LineStyleプロパティで枠線の色、太さ、線の種類を設定できます。

既にグラフがある場合

下の画像において下のコードを実行するとグラフタイトルの枠線の色、太さ、線の種類が設定されます。

Sub test1()

With ActiveSheet.ChartObjects(1).Chart.ChartTitle.Border

.Color = RGB(255, 192, 0)
.Weight = 3
.LineStyle = xlDot

End With

End Sub

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

グラフ作成時にグラフタイトルの枠線も設定

下のコードを実行するとグラフタイトルの枠線がオレンジの太さ3の点線に設定されます。

Sub test2()

With ActiveSheet.Shapes.AddChart.Chart

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

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

.ChartTitle.Border.Color = RGB(255, 192, 0)
.ChartTitle.Border.Weight = 3
.ChartTitle.Border.LineStyle = xlDot

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.Border.Color = RGB(255, 192, 0)

タイトルの枠線の色をオレンジに設定しています。

.ChartTitle.Border.Weight = 3

タイトルの枠線の太さを3に設定しています。

.ChartTitle.Border.LineStyle = xlDot

タイトルの枠線の種類を点線に設定しています。