Gruppe
Ereignis
Problem
Wie kann ich beim Öffnen einer Arbeitsmappe die Standardschriftgröße prüfen und in Abhängigkeit hiervon den Zoomfaktor festlegen?
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