Excel VBAで折れ線グラフを自動生成！業務効率を上げるマクロ解説

以下のようなシーンで利用されます。

・毎週や毎月のデータ更新に伴って、同じ形式のグラフを作成する必要がある。

・複数のグラフを一括で作成することで、データの分析を効率化したい。

・特定のフォーマットやスタイルでグラフを作成したい。

1. Option Explicit
3. Sub CreateLineChart()
4.     Dim ws As Worksheet
5.     Dim chartObj As ChartObject
6.     Dim chartRange As Range
8.     ' ワークシートを設定
9.     Set ws = ThisWorkbook.Sheets("Sheet1")
11.     ' グラフに使用するデータ範囲を設定（例: A1からB5の範囲）
12.     Set chartRange = ws.Range("A1:B5")
14.     ' グラフオブジェクトを作成
15.     Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)
17.     ' グラフのタイプを設定（例: 折れ線グラフ）
18.     With chartObj.Chart
19.         .SetSourceData Source:=chartRange
20.         .ChartType = xlLine
22.         ' グラフタイトルを設定
23.         .HasTitle = True
24.         .ChartTitle.Text = "サンプル折れ線グラフ"
26.         ' 軸タイトルを設定
27.         .Axes(xlCategory, xlPrimary).HasTitle = True
28.         .Axes(xlCategory, xlPrimary).AxisTitle.Text = "X軸ラベル"
29.         .Axes(xlValue, xlPrimary).HasTitle = True
30.         .Axes(xlValue, xlPrimary).AxisTitle.Text = "Y軸ラベル"
31.     End With
32. End Sub

ExcelVBAを使ったグラフ作成は、定期的なレポート作成や大量のデータを効率的に可視化する際に非常に便利です。初心者でも、サンプルコードを元に簡単な折れ線グラフを作成することができるため、業務の自動化に役立てます。