Immer mit 100% Zoom öffnen (Microsoft Excel)
Wenn Sie mit Arbeitsmappen arbeiten, an denen Ihre Kollegen zuerst gearbeitet haben, ist der Zoomfaktor, den diese anderen auf diese Arbeitsmappen anwenden, möglicherweise frustriert. Wenn Ihre Kollegin (Wanda) beispielsweise einen riesigen Monitor hat, ist es nicht ungewöhnlich, dass sie den Zoomfaktor von Excel auf 75% oder sogar 60% reduziert. Der Zweck ist natürlich, dass sie nicht von Dingen überwältigt wird, die bei vollem Zoomfaktor sehr groß aussehen.
Das Problem ist, dass der Zoomfaktor mit der Arbeitsmappe gespeichert wird. Wenn Wanda die Arbeitsmappe speichert und an Sie weitergibt, wird die Arbeitsmappe beim Öffnen weiterhin mit dem Zoomfaktor angezeigt, den Wanda zuletzt verwendet hat.
Wenn Sie nicht die gleiche Monitorgröße wie Wanda haben, ist die Arbeitsmappe auf Ihrem System möglicherweise fast unleserlich.
Es gibt nur zwei mögliche Lösungen für dieses Problem. Zunächst können Sie den Zoomfaktor einfach anpassen, sobald Sie die Arbeitsmappe öffnen. Es gibt eine Vielzahl von Möglichkeiten, dies zu tun. Am einfachsten ist es jedoch, das Zoom-Steuerelement auf der rechten Seite der Statusleiste zu verwenden. Sie können auf den Mittelpunkt des Zoom-Schiebereglers klicken und schnell zu 100% zurückkehren, oder Sie können auf den Prozentsatz neben dem Schieberegler klicken, um das Dialogfeld Zoom anzuzeigen.
Die zweite Problemumgehung besteht darin, ein Makro zu erstellen, das mit der Arbeitsmappe gespeichert wird. Das Makro kann jedes Mal ausgeführt werden, wenn die Arbeitsmappe geöffnet wird, und dadurch den Zoomfaktor einstellen. (Dieses Makro sollte im VBA-Editor zum Fenster Diese Arbeitsmappe hinzugefügt werden.)
Private Sub Workbook_Open() ActiveWindow.Zoom = 100 End Sub
Das einzige Problem mit einem solchen Makro ist natürlich, dass jedes Mal, wenn Wanda (Ihre Kollegin) die Arbeitsmappe auf ihrem System öffnet, der Zoomfaktor eingestellt wird und sie mit Ihnen genauso frustriert ist wie mit ihr.
Möglicherweise besteht eine Lösung darin, ein komplexeres Makro zu erstellen, das die aktuelle Bildschirmauflösung überprüft und dann den Zoomfaktor entsprechend einstellt.
Zum Beispiel könnte das folgende Makro verwendet werden, um die Anpassungen basierend auf der Auflösung vorzunehmen:
Declare Function GetSystemMetrics32 Lib "user32" _ Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long Public Sub ScreenRes() Dim lResWidth As Long Dim lResHeight As Long Dim sRes As String lResWidth = GetSystemMetrics32(0) lResHeight = GetSystemMetrics32(1) sRes = lResWidth & "x" & lResHeight Select Case sRes Case Is = "800x600" ActiveWindow.Zoom = 75 Case Is = "1024x768" ActiveWindow.Zoom = 125 Case Else ActiveWindow.Zoom = 100 End Select End Sub
Diese Routine überprüft die Bildschirmauflösung und passt das Fenster entsprechend an. Andere Auflösungen und Zooms können einfach hinzugefügt werden. Um die Routine automatisch auszuführen, verwenden Sie einfach einen Workbook_Open-Ereignishandler im Fenster Diese Arbeitsmappe, um das Makro auszulösen:
Private Sub Workbook_Open() ScreenRes End Sub
_Hinweis: _
Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.
ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.
Dieser Tipp (11551) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tippes für die ältere Menüoberfläche von Excel finden Sie hier: