Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen
Gruppe
Open
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