VBAで2 軸上の折れ線グラフを作成するには？ (ID:82472)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > Range("A1:B18").Select これを使う場合は、どのシート上の範囲かを明示するために、 ThisWorkbook.Activate Sheet1.Activate Sheet1.Range("A1:B18").Select などと書いた方が安全かもしれませんね。 # 個人的には、フォーカスの移動を逐一行うと、その分、処理が遅くなるので # Active/Select系メソッドは、極力、利用しないようにしています。 > 'Axes'メソッドは失敗しました:'_Chart'オブジェクト」 > となってしまいました。 ふぅむ。環境の差異でしょうか。 こちらの環境(Excel 2000)では、DrawGraph2 のように、 SetSourceData → ApplyCustomType の順で設定すれば、 エラーにならなかったのですけれどね…。 (Sheet2がアクティブな状態であっても、Sheet1上にチャートが作成されました) なお、『.Axes(…, xlSecondary)』が失敗するのは、そのチャートが 2軸のグラフになっていない事を意味しています。1軸のみのグラフの場合、 xlPrimary軸 は存在しますが、xlSecondary軸が存在しないためです。 > これを挿入して解決するということはどういうことなのでしょうか？ 1行ずつ「ステップ実行」するとわかりやすいかと思いますが、単に、 Charts.Add と書いた場合、空白のグラフシートが作成される事になります。しかし、 Range("A1:B18").Select Charts.Add とした場合、「A1:B18 のデータを使った棒グラフのシート」が生成されます。 つまり、SetSourceDataメソッドに相当する効果があります。