|
▼ichinose さん:
なるほど、イベントでElementIDがxlSeriesの場合に
Arg1がSeriesのIndexで
Arg2がPointsのIndexが拾えるのですね。
ボタンか何かでイベント開始すれば簡単に使えそうですね。
私も勉強させて頂きました。ありがとうございます。
Private WithEvents cht As Chart
Private Sub CommandButton1_Click()
Set cht = Me.ChartObjects(1).Chart
End Sub
Private Sub cht_BeforeDoubleClick(ByVal ElementID As Long, ByVal Arg1 As Long, ByVal Arg2 As Long, Cancel As Boolean)
If ElementID = xlSeries Then
If Arg2 > 0 Then
MsgBox "SeriesIndex= " & Arg1 & vbLf & "PointIndex= " & Arg2
End If
Cancel = True
Set cht = Nothing
End If
End Sub
|
|