Schriftarten in mehreren Tabellenblättern ändern

[Statistik]

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:

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

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

[Glausius]

Hallo,

die Schriftgröße brauchst Du nicht anzugeben, die bleibt beim Ändern der Schriftart erhalten.
Zeichne einmal folgendes Makro auf:
1. Markiere die gesamte Tabelle
2. Ändere die Schriftart in "OpenSans"
3. Beende das Makro