VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bei Öffnen Standardschriftgröße prüfen und Zoom festlegen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open