シート間のグラフスケールを合わせる

質問

エクセルでマクロを作成してますが、分からないので教えてください。

「まとめ」というシートに"まとめ"という名称のグラフがあり、
「(1)」というシートに"グラフ1"という名称のグラフがあります。
この別々のシートにある2つのグラフはY軸の尺度が違っています。

そこで、"グラフ1"のY軸の尺度(最小値・最大値・目盛間隔・補助目盛間隔)を
グラフ"まとめ"にそのまま移し変更するマクロを考えています。

すみませんが宜しくお願い致します。

回答No.1

yaritsusozai · ベストアンサー

まず、"まとめ"シートと"(1)"シートにあるグラフの管理番号を確認します。

グラフが選択されていない状態でマクロの記録開始→シート"まとめ"のグラフを選択→シート"(1)"のグラフを選択→マクロの記録終了→VBEを開いて、今記録したマクロを確認。"グラフ n"という記述を探す。

nは作った順に1,2…と管理番号が振られます。ここでは、この番号が両方1であると仮定して話を進めます。番号が違う場合は、コードの中の"グラフ 1"という部分を書き換えてください。
標準モジュールを挿入、以下のコードを実行します。

Sub matome()
Worksheets("まとめ").ChartObjects("グラフ 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MinimumScale
.MaximumScale = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MaximumScale
.MinorUnit = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MinorUnit
.MajorUnit = Worksheets("(1)").ChartObjects("グラフ 1").Chart.Axes(xlValue).MajorUnit
End With
End Sub

お礼

動作し確認できました。
目的どおりです。
本当にありがとうございました。
助かりました。