Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9948 / 76738

←次へ　｜　前へ→


	【72345】エクセルのグラフのマクロについて

夢

- 12/7/19(木) 0:14 -


	引用なし

	パスワード

エクセルのグラフについての質問です。一つのシートの中に、4つの折れ線グラフがあり、この4つのグラフのうち2つは残りの2つのグラフをコピーしたものです。　とりあえずグラフ1、グラフ2、グラフ3、グラフ4とします。そして、これら4つの折れ線グラフのＹ軸の最小値、最大値、目盛の間隔に別々の値を設定するようマクロを「マクロの記録」を使って記録しました。（下記のごとくマクロが記述されました。）　　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をコピーしたために、グラフ名が同じになっていることが原因であろうと思われますが、そこで、なんとか個別に設定値をマクロで組み込む方法を教えて頂けないでしょうか。