Microsoft Excel

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