VBA EXCEL 選択されたグラフのプロットエリアのデータ範囲を変更する。

Question

お疲れ様です。
takkoです。

現在VAB学習中のものです。

VBAのマクロを使用して、
Activesheet上のグラフに対して、
データの参照範囲を変更したいです。

https://msdn.microsoft.com/ja-jp/library/office/ff835202.aspx

ライブラリー検索してもこれっぽいと思えるようなものが無かったのですが、
例えばExcelでグラフを作成する際って、
それぞれグラフを作成するためのデータがあると思いますが、
そのデータの範囲を動的に変更させるような処理を作りたいです。

targetGraph = ActiveSheet.ChartObjects (Hoge)//Hogeグラフの選択
targetGraph.plotArea.Data.Range("")//実際には無いけど、グラフの参照範囲をこんな感じで指定したい。

まず、やり方がどうかというよりは、
やれるのかどうかすらわかっていないので、
詳しい方の手が借りたいです。

よろしくお願い致します。

【追記】
SetSourceDataメソッドを使用すれば、
データの参照範囲を指定できますか？

作成してたグラフが、「組み合わせグラフ」の場合で、
x軸に2以上参照するデータがある場合、どうすれば指定できますか。
お願いします。

Answer 1

とりあえず参照範囲の設定自体は以下で可能です。

ChartObjects("Hoge").Chart.SetSourceData Range("新しい範囲")

組合せグラフについては詳しくないのでわかりかねますが、複数のグラフが混合していたとしても、参照範囲は同じだと思うので気にする必要はないかと思います。

Comments

[King_of_Flies]

http://officetanaka.net/excel/vba/tips/tips150.htm

上記のサイトを参考に色々試している最中で、
プログラム上では下記の入力を試してみましたが、うまくいきませんでした。
ActiveSheet.ChartObjects(C_GrpName212).SetSourceData Source:=Range("A52:Range(A52).End(xlDowm),B52:Range(E52).End(xlDown)"), PlotBy:=xlColumns

[ttyp03]

Rangeの書き方が明らかにおかしいですよね。
文字列の中に関数が入っちゃってるので、機能してません。
A52:E52の最終行、を範囲とするのであれば、こんな感じになるかと思います。
Source:=Range("A52”, Range(E52).End(xlDown)), PlotBy:=xlColumns

[King_of_Flies]

Rangeでは引数を2つ渡すことが出来るみたいで
(”項目軸ラベルの範囲”,”グラフデータ”)というように出来るようです。
上記のコードだとA52～E52のxlDowｎまでを一括で指定していますよね？
A52～A52のxlDownとB52～"52のxlDownまでを指定したいのです。

[King_of_Flies]

間違えました。
Range("項目軸のラベル範囲,グラフデータ")でした。
”はいりませんでした。

[ttyp03]

では、こんな感じですね。
Range("A52:A" & Range("A52").End(xlDown).Row & ",B52:B" & Range("B52").End(xlDown).Row)

[King_of_Flies]

Dim target As Range

target = Union(Range(Range("A52"), Range("A52").End(xlDown)), _
Range(Range("B52"), Range("E52").End(xlDown)))
ActiveSheet.ChartObjects(C_GrpName212).SetSourceData Source:=target, PlotBy:=xlColumns

これでもダメでした・・・

[ttyp03]

ひとつ前に回答しているので、お試しください。

[King_of_Flies]

試してみたところ難しそうでした。（出来なかった

実行時エラー：438　オブジェクトは、このプロパティまたはメソッドをサポートしていません。

とのことで、どうやらやり方自体が間違っているかもしれません。

[ttyp03]

一応こちらで動作確認はしているので、できると思いますが。

[ttyp03]

とりあえず丸ごと貼っておきます。
ChartObjects(”Hoge”).Chart.SetSourceData Source:=Range("A52:A" & Range("A52").End(xlDown).Row & ",B52:B" & Range("B52").End(xlDown).Row), PlotBy:=xlColumns

[King_of_Flies]

エラー自体はおきないようになりました。
ただ、グラフ一個に対して、系列が4つある場合のグラフ作成で、
系列が一つだけしかセットできませんでした。
少しUnionなどで調査してみます。

[jawa]

横から失礼します。

以前、グラフへの系列追加についての質問に回答したことがありましたので、参考になるかわかりませんが一応紹介します。
https://teratail.com/questions/63512

[King_of_Flies]

この問題自体はまだ、かいけつしていないのですが、
系列の追加は行えました。

ありがとうございます。
別途しつもんがありましたので　、
新しく質問を投稿させていただきました。
よろしくお願い致します。