折れ線グラフ作成マクロ

はじめに

折れ線グラフ作成マクロを作り、月別の腰痛回数を記録するために作りました。

データ

データは以下の表です。

マクロ

作成したマクロのソースコードは以下の通りです

Sub test2()
    Dim ws As Worksheet
    Dim chartObj As ChartObject
    Dim chart As chart
    Dim yAxis As Axis
    
    ' グラフを作成するシートを指定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' グラフオブジェクトを追加
    Set chartObj = ws.ChartObjects.Add(Left:=30, Width:=300, Top:=10, Height:=200)
    Set chart = chartObj.chart
    
    ' グラフのデータ範囲を設定
    chart.SetSourceData Source:=ws.Range("B15:F16")
    
    ' グラフの種類を折れ線グラフに設定
    chart.ChartType = xlLine
    
    ' グラフのタイトルを設定
    chart.HasTitle = True
    chart.ChartTitle.Text = "月別腰痛回数"
    
    ' X軸のタイトルを設定
    chart.Axes(xlCategory, xlPrimary).HasTitle = True
    chart.Axes(xlCategory, xlPrimary).AxisTitle.Text = "日付"
    
    ' Y軸のタイトルを設定
    chart.Axes(xlValue, xlPrimary).HasTitle = True
    chart.Axes(xlValue, xlPrimary).AxisTitle.Text = "腰痛回数"
    
    ' Y軸を取得
    Set yAxis = chart.Axes(xlValue)
    
    ' Y軸の最大値を設定
    yAxis.MaximumScale = 10
    
    ' Y軸の目盛間隔を設定
    yAxis.MajorUnit = 1
    
    ' 凡例を表示
    chart.HasLegend = True
    
    
End Sub

結果

結果は以下の画像です。

最後に

グラフを自動で作成するマクロを作ってみました。