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座標を取得できないため、
単一のデータ系列を取得するには再度選択しなおす必要が生じます。

1 hits

【64177】グラフ(散布図)中の任意に選択したX値Y値を表示 かじったばかり 10/1/23(土) 10:13 質問
【64178】Re:グラフ(散布図)中の任意に選択したX値... kanabun 10/1/23(土) 11:04 発言
【64179】Re:グラフ(散布図)中の任意に選択したX値... kanabun 10/1/23(土) 11:15 発言
【64180】Re:グラフ(散布図)中の任意に選択したX値... kanabun 10/1/23(土) 11:20 発言
【64181】Re:グラフ(散布図)中の任意に選択したX値... かじったばかり 10/1/23(土) 16:59 質問
【64182】Re:グラフ(散布図)中の任意に選択したX値... kanabun 10/1/23(土) 18:24 発言
【64183】Re:グラフ(散布図)中の任意に選択したX値... かじったばかり 10/1/23(土) 20:05 お礼

17996 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free