グラフのy座標の参照範囲を取り出したい

質問

以下の質問から、グラフのデータ系列の参照範囲を求める方法は分かったのですが、ここからy座標の参照範囲を取り出す良い方法はありますでしょうか？

http://oshiete1.goo.ne.jp/qa2212193.html

得られる文字列は、タイトル(参照範囲),x座標(参照範囲),y座標(参照範囲)という形式になっています。
現状では、とあるセルにこの文字列を入力し、TextToColumnsを用いてカンマで区切り、3つ目のセルを読み取って対処しているのですが、できればセルを使用したくないのです。
よろしくお願いいたします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

>http://oshiete1.goo.ne.jp/qa2212193.html

>TextToColumnsを用いてカンマで区切り、
>3つ目のセルを読み取って対処しているのですが、できればセルを使用したくないのです。

もし、取れているなら、

ar = Split("データ範囲アドレス：" & myRange.Address & vbLf & "タイトル参照アドレス：" _
& myRange.CurrentRegion.Find(what:=.ChartTitle.Characters.Text).Address, "：")
'区切り文字は、ここでは、「：」を使用しています。

MsgBox ar(2)

で、3番目の部分は取れるはずです。

作った方には申し訳ないけれども、そのマクロは、ある一定のグラフでしか働かないマクロなので、そのグラフが分からないと、正確には出来ないような気がします。Excel 2000 と Excel 2003 とで調べてみましたが、どちらでも、どういうグラフなのかは想像が付きませんでした。

ただ、純粋にデータの位置として、x座標,y座標が存在するのは、散布図だけだと思います。

お礼

回答ありがとうございます！
説明不足ですみませんでした。対象のグラフはまさに散布図でした。

sourceData = Replace(Replace(.SeriesCollection(n).Formula, "," & n & ")", ""), "=SERIES(", "")

これから、

sheet1!$A$1,sheet1!$A$2:$A$10,sheet1!$B$2:$B$10

のような文字列がとれていたので、教えていただいたSplit関数でy座標が取り出せました。

ar = Split(sourceData, ",")

ありがとうございました！