DataLabel formatieren
26.02.2016 19:29:44
Jörg
ich habe ein Diagramm bei dem der jeweils letzte Punkt mit einem DataLabel versehen ist.
Ich würde gerne das DataLabel formatieren, d.h. es soll folgendes Format haben:
z.B. 37,14%
hier mein Versuch:
Set c = ActiveWorkbook.Charts("Muskelanteil")
With c
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData Source:=Worksheets("Daten").Range(Worksheets("Daten").Cells(3, 2), Worksheets("Daten").Cells(ez + 1, 4))
.PlotBy = xlColumns
'DataLabel des vorletzten Punktes im Diagramm löschen
.SeriesCollection(1).Points(.SeriesCollection(1).Points.Count - 1).HasDataLabel = False
'DataLabel für den letzten Punkt
With .SeriesCollection(1).Points(.SeriesCollection(1).Points.Count)
.HasDataLabel = True
.DataLabel.Text = Worksheets("Daten").Cells(ez + 1, 3).Value
.DataLabel.NumberFormat = "0.00%"
End With
End With
Für Hilfe bin ich wirklich dankbar!!