Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
168to172
168to172
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schriftgröße ändern (VBA)

Forumthread: Schriftgröße ändern (VBA)

Schriftgröße ändern (VBA)
22.10.2002 11:40:14
Steffen
hallo,
hilft mir bitte,
ich finde es nicht heraus wie man die Schriftgröße von den Größenachsen eines Diagramms ändert und zwar in dem Stil wie ich auch die Größe des Diagrammstitels geändert habe.
Hier ist das Makro:

Sub Testmakro()
'Dieses Makro bringt alle Diagramme auf die einheitliche Größe (129.75 x 63.75)
'und positieoniert sie alle schön untereinander bzw. nebeneinander

Set sr = Worksheets("Diagramme").ChartObjects.ShapeRange
i = 1
zeile = 0
zaehlerLeft = 1
Do While i <= sr.Count
sr.Item(i).Width = 129.75
sr.Item(i).Height = 63.75
sr.Item(i).Top = (38.25 + (zeile * 76.5))
sr.Item(i).DrawingObject.Chart.ChartTitle.Font.Size = 7
'sr.Item(i).Axes.Font.Size = 5
Select Case zaehlerLeft
Case 1
sr.Item(i).Left = 89.25
Case 2
sr.Item(i).Left = 225.75
Case 3
sr.Item(i).Left = 454.5
Case 4
sr.Item(i).Left = 591
End Select

If i Mod 4 = 0 Then
zeile = zeile + 1
zaehlerLeft = 0
End If
i = i + 1
zaehlerLeft = zaehlerLeft + 1
Loop

End Sub

ich danke euch

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Schriftgröße ändern (VBA)
22.10.2002 11:46:23
Kurt
Mit Font.Size kannst du Schriftgröße verändern.

z.B.:

Font.Size = 12

für Schriftgröße 12

Re: Schriftgröße ändern (VBA)
22.10.2002 11:50:27
Steffen
Hi,

das habe ich schon probiert,
das funktioniert in diesem Fall nicht: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Das muß aber irgendwie gehen, weil man ja die Schrift vom Titel auch ändern kann.

mfg

Anzeige
Ich habs, schon erledigt
22.10.2002 11:54:17
Steffen
das muß so heißen:
sr.Item(i).DrawingObject.Chart.Axes(xlCategory).TickLabels.Font.Size = 5
sr.Item(i).DrawingObject.Chart.Axes(xlValue).TickLabels.Font.Size = 5

Danke an alle

;
Anzeige

Infobox / Tutorial

Schriftgröße in Excel-Diagrammen mit VBA ändern

Schritt-für-Schritt-Anleitung

Um die Schriftgröße in Excel-Diagrammen mit VBA zu ändern, kannst du die folgenden Schritte ausführen:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle ein neues Modul: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

  3. Füge den folgenden Code ein:

    Sub SchriftgrößeÄndern()
    Dim sr As ShapeRange
    Dim i As Integer
    Set sr = Worksheets("Diagramme").ChartObjects.ShapeRange

    For i = 1 To sr.Count
        ' Ändere die Schriftgröße der Achsenbeschriftungen
        sr.Item(i).DrawingObject.Chart.Axes(xlCategory).TickLabels.Font.Size = 5
        sr.Item(i).DrawingObject.Chart.Axes(xlValue).TickLabels.Font.Size = 5
    Next i
End Sub

  4. Starte das Makro: Führe das Makro SchriftgrößeÄndern aus, um die Schriftgröße der Achsen in allen Diagrammen auf dem Blatt "Diagramme" zu ändern.

Häufige Fehler und Lösungen

  • Fehler: "Objekt unterstützt diese Eigenschaft oder Methode nicht."

    • Lösung: Stelle sicher, dass du auf das richtige Diagrammobjekt zugreifst. Verwende sr.Item(i).DrawingObject.Chart korrekt.

  • Problem mit der Schriftgröße der Legende

    • Lösung: Um die Schriftgröße der Legende zu ändern, verwende den Code:
    sr.Item(i).DrawingObject.Chart.Legend.Font.Size = 8

Alternative Methoden

Wenn du nicht mit VBA arbeiten möchtest, kannst du die Schriftgröße auch manuell ändern:

  1. Klicke auf das Diagramm, um es auszuwählen.
  2. Wähle die Achse aus, deren Schriftgröße du ändern möchtest.
  3. Rechtsklicke und wähle Format Axis.
  4. Unter dem Bereich Text Options kannst du die Schriftgröße anpassen.

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du mit VBA die Schriftgröße in Excel-Diagrammen ändern kannst:

  • Diagramm Titel ändern:

    sr.Item(i).DrawingObject.Chart.ChartTitle.Font.Size = 12

  • Legende Schriftgröße ändern:

    sr.Item(i).DrawingObject.Chart.Legend.Font.Size = 10

Tipps für Profis

  • Nutze Schleifen, um mehrere Diagramme in einem Schritt zu bearbeiten.
  • Halte deine VBA-Codes sauber und gut kommentiert, um die Wartung zu erleichtern.
  • Experimentiere mit verschiedenen Schriftgrößen, um die beste Lesbarkeit zu erreichen.

FAQ: Häufige Fragen

1. Wie kann ich die Schriftgröße der Legende in einem Excel-Diagramm ändern?
Verwende den folgenden Code:

sr.Item(i).DrawingObject.Chart.Legend.Font.Size = 8

2. Funktioniert dieser VBA-Code in allen Excel-Versionen?
Ja, der Code sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Achte darauf, dass du die korrekten Objektreferenzen verwendest.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige