【VBA】棒グラフを作成する

VBAで
　・棒グラフを作成
できます！

棒グラフは
　・量を比較する
ときに使用します！

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("E4")
        leftPosition = .Left
        topPosition = .Top
    End With
    
    '棒グラフを作成
    Set shapeObj = ws.Shapes.AddChart2(Style:=201, _
                                       XlChartType:=xlColumnClustered, _
                                       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オブジェクト」を取得します(20行目)。

「Shapesオブジェクト」の「AddChart2」メソッドにより、棒グラフを作成します(20～23行目)。
※手動で作成した場合と同じスタイルになるように、引数「Style」に「201」を指定します。
※グラフを「集合縦棒」にするために、引数「XlChartType」に「XlChartType列挙体」の「xlColumnClustered」を指定します。
※「AddChart2」メソッドにより「Shapeオブジェクト」を取得します。

グラフを削除する際に「名前を指定して削除」できるようにするため、棒グラフに名前を付けます(26行目)。

棒グラフの各種設定をします(29～36行目)。

実行結果

棒グラフ(集合縦棒)を作成できました。

横軸のラベルの「文字列の方向」を「縦書き」にしたかったのですが、やり方が分かりませんでした。
※どうしても「縦書き(半角文字含む)」になってしまう。
※公式サイトを見る限り「xlTickLabelOrientationVertical」を指定すれば「縦書き」になるはずだが、ならない…。