Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 16:44:36
DENNIS
ich möchte über eine Schleife die Schriftgröße der X-Achse aller Grafiken auf meinem Excel-Sheet anpassen.
For i = 1 To Worksheets("XXX").ChartObjects.Count
ActiveChart.FullSeriesCollection(i)
ActiveChart.Axes(xlValue).Select
Selection.Format.TextFrame2.TextRange.Font.Size = 14
Next i
Beim Befehl Selection.Format.TextFrame2.TextRange.Font.Size = 14 kommt die Fehlermeldung "Method Textframe2 of object ChartFormat failed". Den Befehl habe ich über den Makrorekorder bekommen.
Sieht jemand meinen Fehler? Gibt es einen eleganteren Weg die Schriftgrößen anzupassen?
Vielen Dank schon mal.
Gruss Dennis