Если вы работаете с книгами, над которыми сначала работали ваши коллеги, вас может расстроить коэффициент масштабирования, примененный к этим книгам другими. Например, если у вашей коллеги (Ванды) огромный монитор, для нее нет ничего необычного в уменьшении коэффициента масштабирования Excel до 75% или даже 60%. Цель, конечно же, в том, чтобы ее не подавляли вещи, которые выглядят очень большими при полном коэффициенте масштабирования.

Проблема в том, что коэффициент масштабирования сохраняется в книге. Таким образом, когда Ванда сохраняет книгу и передает ее вам, когда вы ее открываете, книга по-прежнему отображается с любым коэффициентом масштабирования, который Ванда использовала последний раз.

Если у вас нет монитора такого же размера, как у Ванды, то книга может быть почти неразборчивой в вашей системе.

Есть только два возможных решения этой проблемы. Во-первых, вы можете просто настроить коэффициент масштабирования после открытия книги. Для этого существует множество способов, но самый простой — использовать элемент управления масштабированием в правой части строки состояния. Вы можете щелкнуть центральную точку на ползунке «Масштаб» и быстро вернуться к 100% или щелкнуть процентное значение рядом с ползунком, чтобы отобразить диалоговое окно «Масштаб».

Второй обходной путь — создать макрос, который сохраняется вместе с книгой. Макрос может запускаться каждый раз при открытии книги и тем самым устанавливать коэффициент масштабирования. (Этот макрос следует добавить в окно кода этой книги в редакторе VBA.)

Private Sub Workbook_Open()

ActiveWindow.Zoom = 100 End Sub

Единственная проблема с макросом, подобным этому, конечно же, заключается в том, что всякий раз, когда Ванда (ваша коллега) открывает книгу в своей системе, также устанавливается коэффициент масштабирования, и она будет так же разочарована вами, как и вы с ней.

Возможно, решение состоит в том, чтобы создать более сложный макрос, который проверяет текущее разрешение экрана, а затем соответствующим образом устанавливает коэффициент масштабирования.

Например, следующий макрос может использоваться для корректировки в зависимости от разрешения:

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

Эта процедура проверяет разрешение экрана и соответствующим образом корректирует окно. Можно легко добавить другие разрешения и увеличения. Чтобы процедура запускалась автоматически, просто используйте обработчик события Workbook_Open в окне кода этой книги, чтобы запустить макрос:

Private Sub Workbook_Open()

ScreenRes End Sub

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11551) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Always_Open_atZoom [Всегда открывать при 100% увеличении].