Изменить масштаб лица в зависимости от разрешения экрана

[Fox River]

Здравствуйте, подскажите пожалуйста как можно поменять масштаб отображения листа на экране в зависимости от разрешения экрана монитора.
На данном форуме нашел темы в которых показано наоборот изменение разрешения экрана монитора.

Например: если разрешение экрана 1024х768 то масштаб 100%, если 1280х1024, то масштаб листа 130%

[VictorM]

В общем случае это может выглядеть так:

Private Declare Function GetSystemMetrics _
        Lib "user32.dll" (ByVal nIndex As Long) As Long
Private Sub GetSystemScreen()
    Dim iX As Long, iY As Long
    iX = GetSystemMetrics(1&)
    iY = GetSystemMetrics(0&)
    '    MsgBox "Ваш экран имеет разрешение : " & _
         '    iY & "х" & iX, vbExclamation, "Информация"
    iscrin = iY & "х" & iX
    If iscrin = "1280х1024" Then ActiveWindow.Zoom = 100
    If iscrin = "1024х768" Then ActiveWindow.Zoom = 130
End Sub

[SAS888]

Например, так:

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Public x As Integer
Public y As Integer
Sub Main()
    Select Case GetSystemMetrics(0) & "x" & GetSystemMetrics(1)
        Case "1024x768": ActiveWindow.Zoom = 100
        Case "1280x1024": ActiveWindow.Zoom = 130
    End Select
End Sub

P.S. прошу прощения... Опередили.

[EducatedFool]

Я использую другой подход - отображаю на экране нужное количество столбцов - на всю ширину экрана.

Это намного проще - и масштаб не надо подбирать для каждого разрешения экрана.

К примеру, этот код установит такой масштаб, чтобы на экране отображались первые 10 столбцов:

Sub test()
    [a1:j1].Select
    ActiveWindow.Zoom = True
End Sub

[Fox River]

Огромное вам спасибо!!!