Excel VBA質問箱 IV

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

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


17995 / 76732 ←次へ | 前へ→

【64181】Re:グラフ(散布図)中の任意に選択したX値Y値を表示
質問  かじったばかり  - 10/1/23(土) 16:59 -

引用なし
パスワード
   ▼kanabun さん:
返信遅くなりすみません。
早速ですが、引用させて動作を確認しました。
まさにやりたかったことが出来たました。
有難うございます。

ただ、
グラフシートでは上手くいくのですが、埋め込みグラフでは
下記の「←←←」の部分で
「SeriesCollectionメソッドは失敗しました。Chartオブジェクト」のエラーが表示されます。
ヘルプを見ても要領がえません。
かって申しますがご教授していただければと思っております。

Private WithEvents MyChart As Chart
'===シートActivate時===
Private Sub Worksheet_Activate()

If MyChart Is Nothing Then
  Set MyChart = ActiveSheet.ChartObjects(1).Chart
End If

End Sub

Private Sub MyChart_Select(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long)
Dim varX As Variant
 Dim varY As Variant
 Dim Msg As String

 Select Case ElementID
  Case xlSeries     '- データ系列が選択されたとき
  Msg = "1"
    With MyChart.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
4 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 お礼

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