04.03.2021, 10:07
Hallo zusammen,
ich suche nach einer Möglichkeit in einer komplette Excelmappe alle Schriftarten auf einmal zu wechseln:
Arial 8 -> Open Sans 8,5
Arial 10 -> Open Sans 10
Arial 6 -> Open Sans 6
das Ganze sollte in allen Grafiken und Textfeldern geschen. Bisher habe ich folgendes entdeckt:
den Code müsste ich irgendwie erweitern, damit er auch für die Textfelder in den Grafiken wirkt und in den Zellen ohne Grafiken.
Über jede Hilfe wäre ich sehr Dankbar.
Beste Grüße,
statistik
ich suche nach einer Möglichkeit in einer komplette Excelmappe alle Schriftarten auf einmal zu wechseln:
Arial 8 -> Open Sans 8,5
Arial 10 -> Open Sans 10
Arial 6 -> Open Sans 6
das Ganze sollte in allen Grafiken und Textfeldern geschen. Bisher habe ich folgendes entdeckt:
Code:
Sub test()
Dim myD As ChartObject
For Each myD In ActiveSheet.ChartObjects
With myD
.Chart.ChartArea.Font.Name = "Open Sans"
.Chart.ChartArea.Font.Size = 8,5
End With
Next
End SubÜber jede Hilfe wäre ich sehr Dankbar.
Beste Grüße,
statistik