Excel VBA質問箱 IV

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

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


9944 / 76734 ←次へ | 前へ→

【72345】エクセルのグラフのマクロについて
質問   E-MAIL  - 12/7/19(木) 0:14 -

引用なし
パスワード
   エクセルのグラフについての質問です。

一つのシートの中に、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をコピーしたために、グラフ名が同じになっていることが原因であろうと思われますが、
そこで、なんとか個別に設定値をマクロで組み込む方法を教えて頂けないでしょうか。
2 hits

【72345】エクセルのグラフのマクロについて 12/7/19(木) 0:14 質問
【72346】Re:エクセルのグラフのマクロについて kanabun 12/7/19(木) 9:26 発言
【72348】Re:エクセルのグラフのマクロについて 12/7/19(木) 21:26 お礼
【72347】Re:エクセルのグラフのマクロについて kanabun 12/7/19(木) 9:47 発言

9944 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free