Excel VBA質問箱 IV

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

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


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

17996 / 76732

←次へ　｜　前へ→


	【64180】Re:グラフ（散布図）中の任意に選択したX値Y値を表示

kanabun - 10/1/23(土) 11:20 -


	引用なし

	パスワード

もひとつ参考まで...
グラフシートで
■Chart_Selectイベントが発生したとき、
　選択されたデータ要素の項目と値を表示するには

Private Sub Chart_Select(ByVal ElementID As Long, _
　　　　　　　　　　ByVal nSeries As Long, ByVal iPoint As Long)
　Dim varX As Variant
　Dim varY As Variant
　Dim Msg As String

　Select Case ElementID
　　Case xlSeries　　　　 '- データ系列が選択されたとき
　　　　With Me.SeriesCollection(nSeries)
　　　　　Select Case iPoint
　　　　　　Case -1　　　　 ' --- 系列全体が選択されたとき
　　　　　　　　Msg = .Formula
　　　　　　Case Else　　　 ' --- 特定の要素が選択されたとき
　　　　　　　　varX = .XValues
　　　　　　　　varY = .Values
　　　　　　　　Msg = .Name & "(" & varX(iPoint) & ", " _
　　　　　　　　　　　　　　　　　& varY(iPoint) & ")"
　　　　　End Select
　　　　End With
　　　　'MsgBox Msg　　　　
　　　　'ActiveWindow.Caption = Msg　　　　
　　　'または
　　　　Application.StatusBar = Msg
　End Select

End Sub

・・・のようになります。
シングルクリックでデータ系列全体が選択された状態では
Arg2には全体が選択されてることを表す”-1”が格納されます。
この場合X,Y座標を取得できないため、
単一のデータ系列を取得するには再度選択しなおす必要が生じます｡

2 hits

▼

【64177】グラフ（散布図）中の任意に選択したX値Y値を表示 かじったばかり 10/1/23(土) 10:13