Hallo,
habe ein xy-Diagramm mit sehr vielen Punkten. Die x-Daten stehen in Spalte Q, die Y-Daten in Spalte K, und zwar ab Zeile 14. Die Bezeichungen stehen in Spalte G.
Folgendes Makro beschriftet nun die ersten 10 Punkte automatisch. Funktioniert auch wunderbar. Nun würde ich gerne aber die Beschriftungen einzeln auswählen können. Zum Beispiel durch markieren der Bezeichung in Zelle G34 (anschließen Makroaufruf über Schaltfläche), soll nur der Punkt (Q34:34) die Bezeichnung aus G34 im Diagramm erhalten. So kann ich dann verschieden Punkte nach meiner Auswahl beschriften.
Vielen Dank im voraus.
Dim chtDiagr As ChartObject
Dim scData As SeriesCollection
Dim lngZaehler As Long
Dim ptPunkt As Points
Dim lngAnzahlData As Long
Dim strZellText As String
Set chtDiagr = Worksheets("Blank 5").ChartObjects(1)
Set scData = chtDiagr.Chart.SeriesCollection
Set ptPunkt = scData(1).Points
Worksheets("Blank 5").Range("G14").Activate
lngAnzahlData = ptPunkt.Count
For lngZaehler = 1 To 10
strZellText = ActiveCell.Value
ptPunkt(lngZaehler).HasDataLabel = True
ptPunkt(lngZaehler).DataLabel.Font.Size = 6
ptPunkt(lngZaehler).DataLabel.Text = strZellText
ptPunkt(lngZaehler).MarkerBackgroundColorIndex = 3
ptPunkt(lngZaehler).MarkerForegroundColorIndex = 3
ptPunkt(lngZaehler).MarkerSize = 8
ActiveCell.Offset(1, 0).Select
Next lngZaehler
Set ptPunkt = Nothing
Set scData = Nothing
Set chtDiagr = Nothing