ich möchte gern in einem Diagramm das [Point.Select] abfangen. Nachdem Motto:
Klicke auf Datenpunkt und siehe dann genauere Angaben.
Jemand 'ne Idee ?
Danke im Voraus
Frank
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, _
ByVal x As Long, ByVal y As Long)
Dim IDNum As Long, a As Long, b As Long, arrX, arrY, X_Wert, Y_Wert
Dim sc As Series
If Button = 1 Then
Me.GetChartElement x, y, IDNum, a, b
If IDNum = xlSeries Then
Set sc = Me.SeriesCollection(a)
arrX = sc.XValues
arrY = sc.Values
X_Wert = arrX(b)
Y_Wert = arrY(b)
Me.Deselect
MsgBox "X= " & X_Wert & " Y= " & Y_Wert
End If
End If
End Sub