Excelのグラフ範囲をセル内容で指定したい

質問

皆さんに知恵をお貸しいただきたく思います。

同じようなグラフをグラフ範囲を変えて複数作成するために、以下のようなことを考えています。

・sheet1のA1セルにグラフ対象範囲を格納し、
例）[別のbook]sheet2!A1:E50
・グラフの範囲にsheet1のセル内容を範囲として設定する

ということをしたいのですが、うまくいきません。
indirect関数を使ってみたのですが、グラフのプロパティの範囲部分にはindirect関数は書けないようでした。
また、VBAでグラフ範囲を修正するマクロを書こうとしましたが、
SetSourceData Source:= Sheet("sheet1").range("A1")
と書くと、当然ながらsheet1!A1そのものを範囲として認識してしまいます。
取得した値をrangeに変換する方法を知りたいです。

どうかよろしくお願いします。

回答No.2

misatoanna · ベストアンサー

次のようにされたらいかがでしょうか。

Sub Test()
Dim RNG As String
RNG = Range("A1").Value
（中略）
ActiveChart.SetSourceData Source:=Range(RNG), PlotBy:=xlColumns
(後略)

お礼

ありがとうございます。
おっしゃるように試してみましたが、
ActiveChart.SetSourcerData～の行で

Rangeオブジェクトは失敗しました：_worksheetオブジェクト

というエラーが出てしまいました(T-T)
Rangeの引数に文字列として範囲指定しているので
うまくいくと思ったんですが。。。

RNGには範囲としたい値が取れています。
グラフ用ブックには、
・データ範囲設定用シート
・グラフ
があり、
データ用ブックには、
・グラフの元となる表
がある状態です。

よろしくお願いします。

回答No.3

imogasi

＞提示していただいた例でいえば、
cells(1,1)にa.addressを入れてある状態で、
この範囲値を元にグラフ描画をしたいと思っています。
よろしくお願いします。
質問でしょうか？であれば、下記を参考にしてください。
Source:=Range(rng),にすると文字列が範囲指定に戻ります。
Sub test01()
Dim a As Range
Set a = Application.InputBox("範囲", "", Type:=8)
Cells(1, 4) = "Sheet1!" & a.Address
rng = Cells(1, 4)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Range(rng), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub

お礼

ありがとうございます。

テストしてみたところ、同一ブックでは正常に動作しました。
他のブックを参照するときの記述がまずいのでエラーが出ているようです。。。

しばらく自分で頑張ってみます。
セル範囲はこの方法で指定できることがわかりました。
ありがとうございました。

回答No.1

imogasi

Inputメソッドで実現すると思います。
Sub test01()
Dim a As Range
Set a = Application.InputBox("範囲", "", Type:=8)
Cells(1, 1) = a.Address
End Sub
を実行してみてください。自分がマウス等で指定した範囲が、文字列$A$5:$C$8のような形で返ると思います。
あとSheet名が必要なら、
Cells(1, 1) = "Sheet1!" & a.Address
のようにすればよい。
－－－
さてグラフを描かせる場合は
Sub test01()
Dim a As Range
Set a = Application.InputBox("範囲は", "範囲指定", Type:=8)
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=a, PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"
End Sub
で指定した範囲のグラフを描くと思います。
離れた範囲などで上手く行くかテストはやってませんが
よろしく。

お礼

ありがとうございます。

Inputメソッドで選択範囲をセルに入力可能であることがわかりました。

提示していただいた例でいえば、
cells(1,1)にa.addressを入れてある状態で、
この範囲値を元にグラフ描画をしたいと思っています。
よろしくお願いします。