Excel 複数のグラフの軸の書式設定を一気に変更するには?

複数のグラフの軸の書式設定を一気に全て変更したいのですが、可能でしょうか？
グラフの種類は"折れ線"で、データは以下の内容（値が類似）のグラフ ×３個　の　sheet　×１０数個になります。

　　　 値
A　1　0.28
　　2　0.28
　　3　0.28
B　1　0.02
　　2　0.02
　　3　0.02

Aは　A1～A3セルまで結合（Bも同じ）

変更したい点は…　"軸の書式設定"の"目盛"で内容は以下になります。
　　　　　　　　　　今　　　　変更値
最大値(X)　　　　3 　　→ 　　1
目盛間隔(A)　　 1 　　→ 　　0.2

アドバイス宜しくお願いします。

No.1 ベストアンサー 回答者： mach999 回答日時： 2004/09/17 23:28

VBAを使えば可能です。

Public Sub ChangeScale()
　　Dim ws As Worksheet
　　Dim co As ChartObject

　　For Each ws In Worksheets
　　　　For Each co In ws.ChartObjects
　　　　　　co.Chart.Axes(xlValue).MaximumScale = 1
　　　　　　co.Chart.Axes(xlValue).MajorUnit = 0.2
　　　　Next
　　Next
End Sub

※実行すると、ブック内の全てのワークシートのグラフの軸が変わります。

この回答へのお礼

なんと素晴らしい(^^)//
これはかなり割愛しそうです。
アドバイスありがとうございました。

お礼日時：2004/09/18 00:25