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 質問
【11589】Re:グラフの元データ範囲の取得 ichinose 04/3/12(金) 8:40 発言
【11591】Re:グラフの元データ範囲の取得 Excel大好きちゃん 04/3/12(金) 9:25 お礼
【11594】Re:グラフの元データ範囲の取得 ichinose 04/3/12(金) 9:54 発言
【11597】Re:グラフの元データ範囲の取得 Excel大好きちゃん 04/3/12(金) 10:07 お礼
【11643】Re:グラフの元データ範囲の取得 ichinose 04/3/12(金) 22:40 発言
【11738】Re:グラフの元データ範囲の取得 Excel大好きちゃん 04/3/15(月) 17:23 お礼
【11644】Re:グラフの元データ範囲の取得 Kein 04/3/13(土) 0:01 回答≪
【11692】Re:グラフの元データ範囲の取得 ichinose 04/3/14(日) 21:41 発言
【11708】Re:グラフの元データ範囲の取得 Excel大好きちゃん 04/3/15(月) 9:46 発言
【11746】Re:グラフの元データ範囲の取得 ichinose 04/3/15(月) 18:36 発言
【11757】Re:グラフの元データ範囲の取得 ichinose 04/3/15(月) 21:57 発言
【11758】Re:グラフの元データ範囲の取得 更に訂正 ichinose 04/3/15(月) 22:22 発言
【12018】気づかなくて、お礼が遅くなりました。(^^♪ Excel大好きちゃん 04/3/22(月) 12:11 お礼
【11739】Re:グラフの元データ範囲の取得 Excel大好きちゃん 04/3/15(月) 17:26 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
69606 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free