グラフの横軸ラベルを90度回転させる(ExcelVBA)

Excelのグラフの横軸ラベルを回転させたかった。応用が効きそう。

コード

Option Explicit

Sub 表の横軸ラベルを90度回転させる()
    Dim chartCount As Integer
    Dim i As Integer
    
    chartCount = ActiveSheet.ChartObjects.Count

    For i = 1 To chartCount
        ' 90で左90度、-90で右90度回転
        ActiveSheet.ChartObjects(i).Chart.Axes(xlCategory).TickLabels.Orientation = 90
    Next

End Sub

実行例

回転前

回転後

参考にしました

daitaideit.com