Hi,
ich erzeuge meine Diagramme dynamisch und versuche die Beschriftung alle Datenreihe vertikal zu orientieren. Leider habe ich es nur für die erste Reihe geschafft mit:
ActiveChart.SeriesCollection(1).DataLabels.Select
Selection.AutoScaleFont = True

With Selection
.Orientation = xlUpward
End With
Ohne (1) geht es auch nicht !!!!!
Gruß
Stan