Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

69606 / 76732

←次へ　｜　前へ→


	【11644】Re:グラフの元データ範囲の取得

Kein - 04/3/13(土) 0:01 -


	引用なし

	パスワード

系列から数式を取得し、カンマ区切りで分解するという方法は良いと思います。
ただ、拝見したような複雑なコードが必要なのかは分かりません。
もし既存のグラフに、コピー&ペーストでデータを繰り返し追加していたら、
SERIES関数の数式がヘンな形になってしまうのは知ってますが、そのようなプロット
範囲の拡大方法をしていないなら、最も単純な 4つの引数を持つ数式であるはず
です。即ち

=SERIES(系列名の文字列またはその参照, 項目軸範囲, 数値軸範囲, 系列のIndex)

ですから単純に

Dim SR As Series
Dim SeriAry As Variant
Dim x As Integer
Dim ShN As String, PltAd As String

Set SR = ActiveChart.SeriesCollection(1)
SeriAry = Split(SR.Formula, ",")
x = InStr(1, SeriAry(2), "!")
ShN = Left$(SeriAry(2), x - 1)
PltAd = Right$(SeriAry(2), Len(SeriAry) - x)

と文字列を抜き出して

Worksheets(ShN).Range(PltAd)

をプロットしているデータ範囲、とすればよいと思います。

2 hits

▼

【11584】グラフの元データ範囲の取得 Excel大好きちゃん 04/3/11(木) 18:51