Ｅｘｃｅｌ グラフ

質問

Ｅｘｃｅｌ　グラフの　軸書式設定→目盛の最大値を変更したいのですが、数十個ある最大値を一括して修正する方法がありますか？？
今は１つずつ修正しています。
なにか良い方法があれば教えて下さい。

回答No.1

imogasi

>数十個ある
数十個のグラフを描いているのでしょうが、別別の複数グラフに対し、一定の最大値を設定する操作（画面）をＭＳ社が設けたにしても、使える場合は、そんなに多くないと思うから、そんな仕組みはありません。
ちょっと思いつきの質問と思う。
本件は各グラフに対し、最大値はバラバラの値なのか、同一の値なのかも質問に書いてない。
ーー
とにかく人手で出来ます。
それ（人手の操作）が面倒なら、ＶＢＡを勉強して、プログラムにやらせるほか無い。（何でもできるとは限らないが）
ーー
マクロの記録を取り、最大値の設定がどういうコードになうか判ると思う。
各グラフのＶＢＡでの捕らえ方を勉強して知り
Ｆｏｒ　Ｎｅｘｔ（Ｆｏｒ　Ｅａｃｈ）などで繰り返す、などを検討してみては。
ーー
実際やればわかるが、マクロの記録は
Sub Macro1()
ActiveChart.ChartArea.Select
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScaleIsAuto = True
.MaximumScale = 100
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
この.MaximumScale = 100
の行が、最大値を決めている。
ActiveChart.ChartArea.SelectのActiveChartを変化させるにはどうするか勉強のこと。