【VBA】折れ線グラフを作成する

VBAコード

ここでは例として
　・シート「sample」上にある「横浜市の犯罪件数」データを元に
　・シート「sample」上に「折れ線グラフ(マーカー付き折れ線)」を作成
します。

Option Explicit

Sub sample()

    Dim ws As Worksheet
    Dim topPosition As Double
    Dim leftPosition As Double
    Dim shapeObj As shape
    
    'シートを指定
    Set ws = Worksheets("sample")
    
    '折れ線グラフを表示させる位置を取得
    With ws.Range("E3")
        leftPosition = .Left
        topPosition = .Top
    End With
    
    '折れ線グラフを作成
    Set shapeObj = ws.Shapes.AddChart2(Style:=227, _
                                       XlChartType:=xlLineMarkers, _
                                       Left:=leftPosition, _
                                       Top:=topPosition)
    
    '折れ線グラフの名前
    shapeObj.Name = "横浜市の犯罪件数"
    
    '折れ線グラフの設定
    With shapeObj.chart
        '元データ
        .SetSourceData Source:=ws.Range("B3").CurrentRegion
        'タイトル
        .ChartTitle.Text = "横浜市の犯罪件数"
        '横軸のラベルを縦書き
        .Axes(xlCategory).TickLabels.Orientation = xlTickLabelOrientationVertical
    End With

End Sub

実行結果

折れ線グラフ(マーカー付き折れ線)を作成できました。

参考①

グラフの削除もできます。

詳細は以下の記事をご確認ください。

参考②

「横浜市の犯罪件数」の詳細は、神奈川県警察のサイトをご確認ください。

参考③

上記で使用した以下の詳細は、公式サイトをご確認ください。

●「Worksheetオブジェクト」の「Shapes」プロパティ

●「Shapesオブジェクト」の「AddChart2」メソッド

●「Shapeオブジェクト」

●XlChartType列挙体

参考④

列挙体の詳細は、以下の記事をご確認ください。