|
fujitaku さん、こんばんわ。
>グラフで第2数値軸を使用することがあると思いますが、マクロを使ってある系列の第2数値軸を設定するにはどうすればよいのでしょうか。
>また、その第2数値軸の目盛りをマクロで変更するにはどうすればよいのでしょうか。(第1数値軸の目盛りのマクロでの変更はできました。)
AxisGroupプロパティと、Axes(xlValue, xlSecondary)を調べると幸せになれるかもしれません。
>最後に、数値軸のタイトルの文字の向きを縦(上→下)にマクロで変更するにはどうしたらよいのでしょうか。
単純に記録するとこうなります。
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.Axes(xlValue, xlSecondary).AxisTitle.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlVertical
End With
Select→Selectionは不要な処理なので、
'対象のグラフが一つ目の場合
With ActiveSheet.ChartObjects(1)
'そのグラフの第2軸のタイトルをいじる。
With .Chart.Axes(xlValue, xlSecondary).AxisTitle
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Orientation = xlVertical
End With
End With
グラフをループしたり、該当のグラフを指定したりして、Withでくくればよいと思います。
|
|