Excel VBA 折れ線グラフを自動的に作成してデータの視覚化を効率的にする

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

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

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

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

Option Explicit

Sub CreateLineChart()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim chartRange As Range

    ' ワークシートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")

    ' グラフに使用するデータ範囲を設定（例: A1からB5の範囲）
    Set chartRange = ws.Range("A1:B5")

    ' グラフオブジェクトを作成
    Set chartObj = ws.ChartObjects.Add(Left:=100, Width:=375, Top:=50, Height:=225)

    ' グラフのタイプを設定（例: 折れ線グラフ）
    With chartObj.Chart
        .SetSourceData Source:=chartRange
        .ChartType = xlLine

        ' グラフタイトルを設定
        .HasTitle = True
        .ChartTitle.Text = "サンプル折れ線グラフ"

        ' 軸タイトルを設定
        .Axes(xlCategory, xlPrimary).HasTitle = True
        .Axes(xlCategory, xlPrimary).AxisTitle.Text = "X軸ラベル"
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Text = "Y軸ラベル"
    End With
End Sub

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