Gruppe
Ereignis
Bereich
Open
Thema
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe die Standardschriftgröße prüfen und in Abhängigkeit hiervon den Zoomfaktor festlegen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Select Case Application.StandardFontSize
Case 8, 9: ActiveWindow.Zoom = 120
Case 10, 11: ActiveWindow.Zoom = 100
Case 12, 14: ActiveWindow.Zoom = 80
End Select
End Sub