複数のグラフを扱う場面では、VBAで管理しやすくするために
グラフに意味のある名前をつけて運用する方法が非常に効果的です。
ChartObjects(1) のような“番号指定”は、
グラフの順番が変わると意図しないグラフを操作してしまう原因となります。
そのため、命名 → 名前で取得 → 再利用の流れが実務的に最も安全で効率的です。
目次
1. グラフに名前を付ける方法（作成時に命名する）
グラフを作成したら、まず最初に ChartObject.Name を設定しましょう。
Sub CreateNamedChart()
Dim ws As Worksheet
Dim co As ChartObject
Set ws = Sheets("Sheet1")
'グラフ作成
Set co = ws.ChartObjects.Add(Left:=100, Top:=50, Width:=400, Height:=300)
'グラフに名前を付ける
co.Name = "売上推移グラフ"
'初期設定（サンプル）
co.Chart.ChartType = xlColumnClustered
co.Chart.ChartTitle.Text = "売上推移"
End Sub● 名前をつけるメリット
- グラフの検索が圧倒的に容易
- グラフの更新処理を共通化できる
- 複数グラフ管理がシステム的に安定
- シート上でレイアウト変更しても問題なし
2. グラフを名前で取得する（最も安全な方法）
Function GetChartByName(ws As Worksheet, chartName As String) As ChartObject
Dim co As ChartObject
For Each co In ws.ChartObjects
If co.Name = chartName Then
Set GetChartByName = co
Exit Function
End If
Next co
End Function● 使用例
Sub UpdateChartTitle()
Dim co As ChartObject
Set co = GetChartByName(Sheets("Sheet1"), "売上推移グラフ")
If Not co Is Nothing Then
co.Chart.ChartTitle.Text = "売上推移（最新版）"
End If
End Sub3. 名前付きグラフを再利用してデータを更新する
例えば、毎月追加される売上表から最新範囲を反映する場合：
Sub UpdateSalesChart()
Dim ws As Worksheet
Dim co As ChartObject
Dim lastRow As Long
Set ws = Sheets("Data")
'最終行の取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
'名前でグラフを取得
Set co = GetChartByName(Sheets("Graphs"), "売上推移グラフ")
If Not co Is Nothing Then
With co.Chart.SeriesCollection(1)
.XValues = ws.Range("A2:A" & lastRow)
.Values = ws.Range("B2:B" & lastRow)
End With
End If
End Sub4. 名前付きグラフが存在するかを判断する（削除・更新の前に重要）
Function ChartExists(ws As Worksheet, chartName As String) As Boolean
Dim co As ChartObject
For Each co In ws.ChartObjects
If co.Name = chartName Then
ChartExists = True
Exit Function
End If
Next co
End Function● 使用例
Sub SafeUpdateChart()
Dim ws As Worksheet
Set ws = Sheets("Graphs")
If ChartExists(ws, "売上推移グラフ") Then
ws.ChartObjects("売上推移グラフ").Chart.ChartTitle.Text = "アップデート済み"
Else
MsgBox "指定のグラフは存在しません"
End If
End Sub5. 名前付きグラフを「テンプレート」として再利用する
グラフのフォーマットをそろえたい場合、
命名したグラフをテンプレート化して複製する方法も便利です。
Sub DuplicateChartTemplate()
Dim src As ChartObject
Dim dst As ChartObject
Set src = Sheets("Template").ChartObjects("レポート標準グラフ")
'コピー → ペースト
src.Copy
Sheets("Report").Activate
ActiveSheet.Paste
'貼り付けられたグラフを取得
Set dst = ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count)
'新しい名前を付ける
dst.Name = "レポート売上グラフ"
End Sub● メリット
- 全レポートの見た目を統一
- 色・フォント・軸設定などを1つのテンプレートに集約
- 作成作業を大幅に時短
6. まとめ
名前付きグラフを活用すると、
- グラフを安全に検索
- データ更新処理を共通化
- レポート作成の自動化が容易
- テンプレ化で一括レイアウト化も可能
といった大きなメリットがあります。
コメント