In Worksheet erstelltes Chart per VBA ansprechen
lorenz1980
ich habe folgenden Code für Charts, die ein eigenes Worksheet darstellen - und dieses läuft:
Private Sub Chart_MouseDown(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y _
As Long)
Dim ElementID As Long, Arg1 As Long, Arg2 As Long, inPunkt As Integer, arrXWerte(), _
arrYWerte()
ActiveChart.GetChartElement x, y, ElementID, Arg1, Arg2
If ElementID = 3 Then
With ActiveChart.SeriesCollection(1)
.DataLabels.Delete
.Points(Arg2).ApplyDataLabels
.Points(Arg2).DataLabel.Text = " "
arrYWerte() = .Values
arrXWerte() = .XValues
For inPunkt = 1 To .Points.Count
If Worksheets("Datenblatt").Cells(inPunkt + 1, 13) = arrXWerte(Arg2) And _
Worksheets("Datenblatt").Cells(inPunkt + 1, 19) = arrYWerte(Arg2) Then
'.Points(Arg2).HasDataLabel = True
'.Points(Arg2).DataLabel.Text = " "
.Points(Arg2).DataLabel.Text = .Points(Arg2).DataLabel.Text & vbLf & _
Worksheets("Datenblatt").Cells(inPunkt + 1, 71)
End If
Next inPunkt
End With
End If
End Sub
Sinn des Ganzen: ich klicke einen Datenpunkt an und neben diesem erscheint, was in Zeile 71 steht.Nun möchte ich diesen Code auch für ein Diagramm nutzen, welches auf einem Workshet mit Daten erstellt wurde. Wie setze ich das um?
Danke im Voraus