Hallo,
ich habe ein Diagramm mit einem Graph, der aus einer Reihe von Meßwerten besteht.Ich würde gerne nur den letzten Punkt im Diagramm mit einem "DataLabel" (also den Wert des Punktes) versehen. Mit jeder Messung kommt zur Reihe ein Punkt dazu. Ich würde gerne im Diagramm immer nur den letzten Punkt mit einem "DataLabel" versehen. Zuerst sollen alle DataLabels des Graphen entfernt werden - dann soll nur der letzte Punkt ein DataLabel erhalten. Leider bekomme ich es nicht hin.
Vielen Dank für die hilfe im Voraus!!
ez+1 ist die letzte mit Werten gefüllte Zeile
hier ein Auszug aus meinem Makro:
dim c as chart
dim ez as integer
'Diagramm Muskelanteil aktualisieren
Set c = ActiveWorkbook.Charts("Muskelanteil")
c.ChartType = xlXYScatterLinesNoMarkers
c.SetSourceData Source:=Worksheets("Daten").Range(Cells(3, 2), Cells(ez + 1, 4))
c.PlotBy = xlColumns
'letzter Punkt im Diagramm hat DataLabel
c.SeriesCollection(1).Points.HasDataLabel = False
With c.SeriesCollection(1).Points(ez + 1)
.HasDataLabel = True
.DataLabel.Text = ActiveSheet.Cells(ez + 1, 3).Value
End With
Set c = Nothing
Set ca = Nothing