ich bekomme bei mir die Meldung "Es können keine weiteren neuen Schriftarten hinzugefügt werden". Kann mir jemand bei diesem Problem helfen?
Vielen Dank!
Gruß André
Sub TurnOffAutoScaleFont()
Dim wksWorksheet As Worksheet
Dim objChartObject As ChartObject
Dim objChart As Chart
Dim intCounter As Integer
For Each wksWorksheet In ActiveWorkbook.Worksheets
For Each objChartObject In wksWorksheet.ChartObjects
intCounter = intCounter + 1
objChartObject.Chart.ChartArea.AutoScaleFont = False
Next objChartObject
Next
For Each objChart In ActiveWorkbook.Charts
objChart.ChartArea.AutoScaleFont = False
intCounter = intCounter + 1
Next
MsgBox "Es wurden " & CStr(intCounter) & " Diagramme verarbeitet."
End Sub
Wenn Du die Fehlermeldung "Es können keine weiteren neuen Schriftarten hinzugefügt werden" in Excel erhältst, befolge diese Schritte:
Dateikopie erstellen: Erstelle unbedingt eine Sicherheitskopie Deiner Excel-Datei, bevor Du Änderungen vornimmst.
Überprüfen der Diagramme: Stelle fest, ob in Deiner Arbeitsmappe viele Diagramme enthalten sind. Bei über 256 verschiedenen Schriftarten kann diese Fehlermeldung auftreten.
Schriftarten vereinheitlichen:
Diagrammoptionen anpassen:
Makro verwenden:
Nutze das folgende VBA-Makro, um die Skalierungsoption für alle Diagramme in der Arbeitsmappe zu deaktivieren:
Sub TurnOffAutoScaleFont()
Dim wksWorksheet As Worksheet
Dim objChartObject As ChartObject
Dim objChart As Chart
Dim intCounter As Integer
For Each wksWorksheet In ActiveWorkbook.Worksheets
For Each objChartObject In wksWorksheet.ChartObjects
intCounter = intCounter + 1
objChartObject.Chart.ChartArea.AutoScaleFont = False
Next objChartObject
Next
For Each objChart In ActiveWorkbook.Charts
objChart.ChartArea.AutoScaleFont = False
intCounter = intCounter + 1
Next
MsgBox "Es wurden " & CStr(intCounter) & " Diagramme verarbeitet."
End Sub
Datei speichern: Nach der Ausführung des Makros speichere die Datei, schließe sie und öffne sie erneut.
Fehler: Zu viele Schriftarten: Wenn Du zu viele unterschiedliche Schriftarten verwendest, kann dies zu Fehlern führen. Reduziere die Schriftarten in den Zellen und Diagrammen.
Lösung: Diagrammformatierung: Vergiss nicht, die Skalierungsoptionen in allen Diagrammen zu überprüfen, um die Anzahl der verwendeten Schriftarten zu minimieren.
Manuelles Entfernen von Schriftarten: Du kannst auch manuell alle nicht benötigten Schriftarten aus den Zellen und Diagrammen entfernen, um die Anzahl der Schriftarten in Excel zu reduzieren.
Verwendung von Vorlagen: Nutze Excel-Vorlagen, die bereits eine reduzierte Anzahl an Schriftarten verwenden, um zukünftigen Problemen vorzubeugen.
Beispiel 1: Angenommen, Du hast in einer Tabelle 30 verschiedene Schriftarten verwendet. Vereinheitliche diese auf eine oder zwei Schriftarten, um Speicherplatz zu sparen und die Leistung von Excel zu verbessern.
Beispiel 2: Wenn Du ein Diagramm mit 10 verschiedenen Schriftarten hast, kann es hilfreich sein, die Schriftarten zu vereinheitlichen und einige Formatierungen zu entfernen, um Fehler zu vermeiden.
Schriftarten-Management: Verwende immer die gleichen Schriftarten in einer Arbeitsmappe, um die maximale Anzahl an Schriftarten zu kontrollieren.
Regelmäßige Überprüfung: Überprüfe regelmäßig die Anzahl der verwendeten Schriftarten, besonders wenn Du viele Diagramme in Deiner Excel-Datei hast.
1. Was bedeutet die Fehlermeldung "Es können keine weiteren neuen Schriftarten hinzugefügt werden"? Diese Meldung erscheint, wenn die maximale Anzahl von 256 verschiedenen Schriftarten in einer Excel-Arbeitsmappe überschritten wird.
2. Wie kann ich die Anzahl der Schriftarten in Excel reduzieren? Vereinheitliche die Schriftarten in Deinen Zellen und Diagrammen und entferne unnötige Formatierungen. Du kannst auch ein VBA-Makro verwenden, um die Skalierungsoptionen in Diagrammen zu deaktivieren.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen