|
エクセルのグラフについての質問です。
一つのシートの中に、4つの折れ線グラフがあり、この4つのグラフのうち2つは残りの2つのグラフをコピーしたものです。 とりあえずグラフ1、グラフ2、グラフ3、グラフ4とします。
そして、これら4つの折れ線グラフのY軸の最小値、最大値、目盛の間隔に別々の値を設定するようマクロを「マクロの記録」を使って記録しました。(下記のごとくマクロが記述されました。)
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.Axes(xlValue).MinimumScale = 100
ActiveChart.Axes(xlValue).MaximumScale = 200
ActiveChart.Axes(xlValue).MajorUnit = 20
ActiveSheet.ChartObjects("Chart 2").Activate
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 50
ActiveChart.Axes(xlValue).MajorUnit = 10
ActiveWindow.SmallScroll Down:=21
ActiveSheet.ChartObjects("Chart 1""").Activate
ActiveChart.Axes(xlValue).MinimumScale = 500
ActiveChart.Axes(xlValue).MaximumScale = 1000
ActiveChart.Axes(xlValue).MajorUnit = 100
ActiveWindow.SmallScroll Down:=15
ActiveSheet.ChartObjects("Chart 2""").Activate
ActiveChart.Axes(xlValue).Select
ActiveChart.Axes(xlValue).MinimumScale = 0
ActiveChart.Axes(xlValue).MaximumScale = 500
ActiveChart.Axes(xlValue).MajorUnit = 100
Range("Y59").Select
ところが、いざ実行してみるととりあえずエラーとなりました。
そこで
ActiveSheet.ChartObjects("Chart 1""").Activate
↓
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveSheet.ChartObjects("Chart 2""").Activate
↓
ActiveSheet.ChartObjects("Chart 2").Activate
に変更したところ動きました。
しかしながら、グラフの設定値がグラフ1、グラフ3 とグラフ2、グラフ4が同じ値となってしまいます。
おそらく、グラフ3、グラフ4はグラフ1、グラフ2をコピーしたために、グラフ名が同じになっていることが原因であろうと思われますが、
そこで、なんとか個別に設定値をマクロで組み込む方法を教えて頂けないでしょうか。
|
|