ich brauche ein Befehl, der die Beschriftung der X-Achse vertikal ausrichtet.
Ich habe mal ein Makro aufzeichnen lassen, während ich den Text vertikal ausgerichtet habe aber da hat er überhaupt nichts mitgeschrieben!?
Hat jemand eine Idee?
Gruß, Jan
Sub Ausrichtung()
Dim ax As Axis
Dim ch As Chart
Dim cho As ChartObject
Dim ws As Worksheet
Set ws = ActiveSheet
Set cho = ws.ChartObjects(1)
Set ch = cho.Chart
Set ax = ch.Axes(1)
ax.TickLabels.Orientation = xlTickLabelOrientationUpward
End Sub
Viele Grüße