マクロでグラフのデーター範囲の変更

質問

すみません、シート1に埋め込みグラフが3つあります。それぞれ系列1、2、3とデーター範囲が設定されています。それで「項目軸ラベルに使用」にもデータ範囲が設定されています。
その、データー範囲をセルの最終行まで変更するマクロを作ろうと思っているのですが、うまくいかないので誰か教えて頂けませんでしょうか？

下記の様に各列の下にデータが入っています。更にその下にデータが追加されていくのですが、
それに伴ってデーター範囲も変更したいのですが何か良い方法を教えて下さい。
SetSourceDataとかで挑戦しようとしたのですが、各系列をどのように指定してよいのか分からず困ってしまいました。
どうか宜しくお願いします。

　Ａ列(項目軸ラベル)　Ｂ列(系列1)　Ｃ列(系列2)　Ｄ列(系列3）　＝グラフ1

　Ｅ列(項目軸ラベル)　Ｆ列(系列1)　Ｇ列(系列2)　Ｈ列(系列3）　＝グラフ2

　Ｉ列(項目軸ラベル)　Ｊ列(系列1)　Ｋ列(系列2)　Ｌ列(系列3）　＝グラフ3

回答No.2

keithin · ベストアンサー

ん？

元のご相談で
＞SetSourceDataとかで挑戦しようとしたのですが、

というお話でしたので，その流れで回答しています。回答さしあげた内容の確認結果はどうだったのでしょうか？

手順の確認：
　新しいマクロの記録を開始する
　グラフ１を選ぶ
　元のデータのデータ範囲で新しいA1:D？のセル範囲を設定する

＞マクロを記録したのですが SeriesCollection(1)等の記述をどのように setsourcedataに繋げるのかが分からず又、困ってしまいました。

それはご相談投稿前にあなたがやっていたこととは，また全然違うアプローチです。
元のご相談と，それに応じて回答したのはグラフのデータ範囲を直す方法ですが，今度あなたがやってるのは個別の系列のセル範囲を付け替える方法です。

そうならそうと(あるいは最初からそう)言ってくれていれば，ちょうど昨日同じご相談がありましたのでご参考に。
http://okwave.jp/qa/q6802704.html

お礼

keithinさん
すみませんでした。

>グラフのデータ範囲を直す方法ですが，今度あなたがやってるのは個別の系列のセル範囲を付け替える方法です。

内容を間違えて質問していたようです。無知な為に大変お手数をお掛けしてすみません。

系列のセル範囲を付け替える方法です。で解決できました。本当に有難うございます。

SetSourceDataを本で調べたりしたら全然違う事をやっていたようです。

回答No.1

keithin

準備：
新しいマクロの記録を開始する
実際に一つグラフを選び，グラフメニューの元のデータから元のデータの範囲を付け替える操作を行い，サンプルグラフを採ってみる
特に，各グラフがマクロで実際に何て言う名前（若しくは番号）で認識されているのか，しっかり確認する

サンプルグラフをお手本に，実際に必要な「下端のデータ位置の調べ方」をよく検討した上で，たとえば下記のようなマクロに修正する。

sub macro1()
　dim r as long
　with worksheets("Sheet1")

　　r = .range("A65536").end(xlup).row
　　.chartobjects("グラフ 1").chart.setsourcedata source:=.range("A1:D" & r), plotby:=xlcolumns

　　r = .range("E65536").end(xlup).row
　　.chartobjects("グラフ 2").chart.setsourcedata source:=.range("E1:H" & r), plotby:=xlcolumns

　　r = .range("I65536").end(xlup).row
　　.chartobjects("グラフ 3").chart.setsourcedata source:=.range("I1:L" & r), plotby:=xlcolumns
　end with
end sub

補足

keithinさん
返信有難うございます。
マクロを記録したのですが SeriesCollection(1)等の記述をどのように setsourcedataに繋げるのかが分からず又、困ってしまいました。
もし、よろしければ教えて頂けませんでしょうか。

下記が記録した内容です。
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.SeriesCollection(1).Values = "=データー!R1C1:R96C1"