Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Anpassung Schriftgröße X-Achse über FullSeriesColl

Forumthread: Anpassung Schriftgröße X-Achse über FullSeriesColl

Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 16:44:36
DENNIS
Hallo zusammen,
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
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 16:52:16
Beverly
Hi Dennis,
versuche es mal so:
Sub Achsenformatierung()
Dim chrDia As ChartObject
For Each chrDia In ActiveSheet.ChartObjects
chrDia.Chart.Axes(xlValue).TickLabels.Font.Size = 14
Next chrDia
End Sub



Anzeige
AW: Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 17:11:58
DENNIS
Top! Vielen Dank!
AW: Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 18:47:21
Dennis
Hallo Karin,
Muss jetzt noch die Schriftfarbe auf blau umwandeln. Den unten stehenden Code nimmt VBA nicht.
chrDia.Chart.Axes(xlValue).Format.TextFrame2.ForeColor.RGB = RGB(0, 32, 96)
Hast du einen Tipp wo man am besten den VBA Objektbaum nachschauen kann? Die VBA Hilfe bringt mich nicht wirklich weiter.
Vielen Dank vorab.
Gruss Dennis
Anzeige
AW: Anpassung Schriftgröße X-Achse über FullSeriesColl
10.05.2017 19:32:54
Beverly
Hi Dennis,
einfach nach demselben Prinzip:
chrDia.Chart.Axes(xlValue).TickLabels.Font.Color = RGB(0, 32, 96)

Was den Objektbaum betrifft - setze eine Überwachung (z.B. auf chrDia.Chart.Axes(xlValue)), dann wird dir die Grundhierarchie zu dem Objekt Werteachse im Überwachungsfenster angezeigt.


Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Schriftgröße der X-Achse in Excel-Diagrammen anpassen


Schritt-für-Schritt-Anleitung

Um die Schriftgröße der X-Achse in Excel-Diagrammen anzupassen, kannst du den folgenden VBA-Code verwenden. Dieser Code durchläuft alle Diagramme in deinem aktiven Arbeitsblatt und ändert die Schriftgröße der Achsenbeschriftungen:

Sub Achsenformatierung()
    Dim chrDia As ChartObject
    For Each chrDia In ActiveSheet.ChartObjects
        chrDia.Chart.Axes(xlValue).TickLabels.Font.Size = 14
    Next chrDia
End Sub

Führe diesen Code in deinem VBA-Editor aus, um die Schriftgröße der X-Achse auf 14 zu setzen. Du kannst die Zahl nach Bedarf anpassen.


Häufige Fehler und Lösungen

  • Fehlermeldung "Method Textframe2 of object ChartFormat failed": Diese Fehlermeldung tritt häufig auf, wenn du versuchst, die Schriftgröße über den FullSeriesCollection-Ansatz zu ändern. Verwende stattdessen den obigen Code, um die Schriftgröße direkt über TickLabels zu ändern.

  • Schriftfarbe ändert sich nicht: Um die Schriftfarbe der Achsenbeschriftungen zu ändern, solltest du den folgenden Code verwenden:

chrDia.Chart.Axes(xlValue).TickLabels.Font.Color = RGB(0, 32, 96)

Dieser Code setzt die Schriftfarbe auf Blau.


Alternative Methoden

Falls du die Schriftgröße und -farbe nicht über VBA ändern möchtest, kannst du dies auch manuell im Excel-Diagramm tun:

  1. Klicke mit der rechten Maustaste auf die X-Achse des Diagramms.
  2. Wähle "Achse formatieren".
  3. Unter "Schriftart" kannst du die Schriftgröße und -farbe anpassen.

Diese Methode eignet sich gut, wenn du nur ein oder zwei Diagramme anpassen möchtest.


Praktische Beispiele

Angenommen, du hast ein Diagramm mit mehreren Datenreihen, und du möchtest sowohl die Schriftgröße als auch die Schriftfarbe ändern. Hier ist der vollständige VBA-Code:

Sub Achsenformatierung()
    Dim chrDia As ChartObject
    For Each chrDia In ActiveSheet.ChartObjects
        ' Schriftgröße ändern
        chrDia.Chart.Axes(xlValue).TickLabels.Font.Size = 14
        ' Schriftfarbe ändern
        chrDia.Chart.Axes(xlValue).TickLabels.Font.Color = RGB(0, 32, 96)
    Next chrDia
End Sub

Führe diesen Code aus, um sowohl die Schriftgröße als auch die Schriftfarbe aller X-Achsen in deinem aktiven Arbeitsblatt anzupassen.


Tipps für Profis

  • Nutze den Objektbaum in VBA, um herauszufinden, welche Eigenschaften du anpassen kannst. Setze eine Überwachung auf ein Objekt, um die Hierarchie zu verstehen.

  • Experimentiere mit verschiedenen Schriftgrößen und -farben, um das Erscheinungsbild deiner Diagramme zu optimieren. Achte darauf, dass die Veränderungen die Lesbarkeit nicht beeinträchtigen.

  • Wenn du oft ähnliche Änderungen vornimmst, speichere den VBA-Code als Makro, um ihn schnell erneut auszuführen.


FAQ: Häufige Fragen

1. Wie kann ich die Schriftgröße für alle Diagramme gleichzeitig ändern?
Du kannst den oben angegebenen VBA-Code verwenden, um die Schriftgröße für alle Diagramme in deinem aktiven Arbeitsblatt gleichzeitig anzupassen.

2. Wo finde ich Hilfe zu VBA-Objekten?
Du kannst die integrierte Hilfe in Excel nutzen oder Online-Ressourcen und Communities wie Stack Overflow oder das Excel-Forum besuchen, um spezifische Fragen zu VBA-Objekten zu klären.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige