軸をVBAで下端/左端にするには

質問

シートファイル内に存在する軸をすべて下端/左端に揃えたいのですがうまくいきません…
今までVBAには触ったこともない初心者ですので、ソースがわけわからなくなっているかもしれませんがご容赦ください。
よろしくお願いします。

Sub kari()
Dim chtobj As Object

For Each chtobj In ActiveSheet.ChartObjects
　　　With chtobj.Chart.Axes(xlValue, xlPrimary)
.TickLabelPosition = xlNextToAxis
　End With

　　　With chtobj.Chart.Axes(xlCategory, xlPrimary)
.TickLabelPosition = xlNextToAxis
　End With

Next
End Sub

回答No.1

mono444 · ベストアンサー

軸の下端/左端は xlNextToAxisではなく xlLow ではありませんか？

Sub kari()
Dim chtobj As Object

For Each chtobj In ActiveSheet.ChartObjects

With chtobj.Chart.Axes(xlValue, xlPrimary)
.TickLabelPosition = xlLow
End With

With chtobj.Chart.Axes(xlCategory, xlPrimary)
.TickLabelPosition = xlLow
End With

Next
End Sub

お礼

完全に勘違いをしておりました…
おかげで無事に実行できました。ご回答ありがとうございました。