Ausrichtung Datenbeschriftung Säulendiagramm
11.12.2014 15:32:37
basti
bei einem gestapeltem Säulendiagramm möchte ich die Datenbeschriftung oberhalb der Säulen platzieren. Gibt es eine Möglichkeit das so zu machen, dass ich quasi sage: "nimm das obere Ende der Säule und addiere einen Wert"?
Momentan sieht das bei mir so aus:
Sub Datenbeschrift_hoch
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(2).Points(1).DataLabel.Select
Selection.Top = Selection.Top - 10
End Sub
Wenn der oberste Teil der Säule relativ groß ist, funktioniert das leider nicht optimal. Außerdem geht das Verhältnis oft verloren.Momentan schreibe ich die oberen Befehle für jede einzelen Datenbeschriftung. Wie geht das, dass dieser für alle ausgeführt wird?