Если вы работаете с книгами, над которыми впервые работали ваши коллеги, вас может расстроить коэффициент масштабирования, примененный к этим книгам другими. Например, если у вашей коллеги (Ванды) огромный монитор, для нее не будет необычным уменьшить коэффициент масштабирования в Excel до 75% или даже 60%. Цель, конечно же, в том, чтобы ее не подавляли вещи, которые выглядят очень большими при полном коэффициенте масштабирования.
Проблема в том, что коэффициент масштабирования сохраняется вместе с книгой. Таким образом, когда Ванда сохраняет книгу и передает ее вам, когда вы ее открываете, книга по-прежнему отображается с любым коэффициентом масштабирования, который Ванда использовала в последний раз. Если у вас нет монитора такого же размера, как у Wanda, книга может быть почти неразборчивой в вашей системе.
Есть только два возможных решения этой проблемы. Во-первых, вы можете просто настроить коэффициент масштабирования после открытия книги. Есть множество способов сделать это, но самый простой – это настройка масштаба на панели инструментов форматирования или использование колеса прокрутки мыши. (В некоторых системах вам может потребоваться удерживать клавишу Ctrl , чтобы колесо прокрутки настраивало коэффициент масштабирования.)
Второе решение – создать макрос, который сохраняется вместе с книгой. Макрос может запускаться каждый раз при открытии книги и тем самым устанавливать коэффициент масштабирования. (Этот макрос следует добавить в окно кода этой книги в редакторе VBA.)
Private Sub Workbook_Open () ActiveWindow.Zoom = 100End Sub
Единственная проблема с таким макросом, конечно, заключается в том, что всякий раз, когда Ванда (ваша коллега) открывает книгу в своей системе, также устанавливается коэффициент масштабирования, и она будет так же разочарована вами, как и вы с ней.
Возможно, решение состоит в создании более сложного макроса, который проверяет текущее разрешение экрана и затем соответствующим образом устанавливает коэффициент масштабирования. Например, следующий макрос можно использовать для корректировки в зависимости от разрешения:
Объявить функцию GetSystemMetrics32 Lib «user32» _ Псевдоним «GetSystemMetrics» (ByVal nIndex As Long) As LongPublic Sub ScreenRes () Dim lResWidth As Long Dim lResHeight As Long Dim sRes As String lResWidth = GetSystemMetrics32 (0) lResHeight = GetSystemMetrics32 (1) sRes = lResWidth & «x» & lResHeight Выбрать регистр sRes Case Is = «800×600» = 75 ActiveWindow. «1024×768» ActiveWindow.Zoom = 125 Case Else ActiveWindow.Zoom = 100 End SelectEnd Sub
Эта процедура проверяет разрешение экрана и соответствующим образом регулирует окно. Можно легко добавить другие разрешения и увеличения. Чтобы процедура запускалась автоматически, просто используйте обработчик события Workbook_Open в окне кода этой книги для запуска макроса:
Private Sub Workbook_Open () ScreenResEnd Sub
Источник: