Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
382 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【80696】グラフのアクティブ線が何番目であるかの確認方法 TK 19/4/15(月) 13:15 質問[未読]
【80697】Re:グラフのアクティブ線が何番目であるか... マナ 19/4/15(月) 18:30 発言[未読]
【80700】Re:グラフのアクティブ線が何番目であるか... TK 19/4/16(火) 9:52 お礼[未読]
【80696】グラフのアクティブ線が何番目であるかの...
質問  TK  - 19/4/15(月) 13:15 -
引用なし
パスワード
   グラフの操作をする場合に
ActiveChart.FullSeriesCollection(3).〜
として、グラフの3番目の線に対して変更を加えるという方法あると思いますが

逆にグラフ上で3番目のラインを選びアクティブにした状態で
「この線は3番目の線です。」と呼び出す方法はないでしょうか

.FullSeriesCollection(x)のxが確認できるマクロについて
ご存知の方いらっしゃいましたら、ご教授いただければ幸いです。

よろしくお願い致します。
【80697】Re:グラフのアクティブ線が何番目である...
発言  マナ  - 19/4/15(月) 18:30 -
引用なし
パスワード
   ▼TK さん：

こんな感じでどうですか

Sub test()
　　Dim s
　　
　　If TypeName(Selection) = "Series" Then
　　　　s = Split(Selection.Formula, ",")
　　　　MsgBox Val(s(3))
　　End If
　　　　
End Sub
【80700】Re:グラフのアクティブ線が何番目である...
お礼  TK  - 19/4/16(火) 9:52 -
引用なし
パスワード
   ▼マナ さん：

ありがとうございます。
出来ました。

グラフの数式から持ってくるという発想全くありませんでしたので、
目から鱗でした。

因みに感謝の投稿には蛇足ですが
作成中のグラフが4要素からなるグラフだけでなく
複雑なグラフも混じっていたのですが、UBound()を用いることで達成できました。

本当にありがとうございます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
382 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free