Определение разрешения экрана

[nemoomen]

Господа, пожалуйста наставьте на путь истинный!

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

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
    
Private Sub Workbook_Open()

    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    If x = 768 Then ActiveWindow.Zoom = 80
    ActiveWindow.Zoom = 100

End Sub

При запуске-закрытии книги вылезает ошибка (в приложении)

Где ошибся?

[valerij]

Сообщение от nemoomen

разрешения монитора и "подгонку" под его размеры основной страницы книги.

Я использую такой макрос от SAS

Private Sub Workbook_Open()
    Application.EnableEvents = False
Dim i As Integer, xK As Long
i = 11: xK = 23 ': x = 115 'Масштаб для все листов
            For L = 1 To 16
            Sheets(L).Select
            'If L = 8 Then xK = 22
            If L = 14 Then xK = 21: i = 9
            If L > 14 Then xK = 23
    R = ActiveCell.Row
    C = ActiveCell.Column
    Range(Cells(1, 1), Cells(xK, i)).Select
    ActiveWindow.Zoom = True
    Cells(R, C).Select
    xK = 23
            Next
Application.EnableEvents = True
End Sub

[nemoomen]

Понятно, но не совсем то.

Valerij, вы знаете, какого размера(маштаба) должны быть листы и представленным кодом, после открытия книги, приводите маштаб листов к константе.

У меня несколько другая задача:
Определив программно размерность используемого монитора, подогнать маштаб ПЕРВОЙ страницы книги под максимальное заполнение экрана монитора.

Маленький скин с видом первого листа прилагаю.

[valerij]

Сообщение от nemoomen

У меня несколько другая задача:
Определив программно размерность используемого монитора, подогнать маштаб ПЕРВОЙ страницы книги под максимальное заполнение экрана монитора..

У меня 4 -монитора, 17' прямоугольник, 19' квадрат, 19' прямоугольник и 15'. На любом мониторе, моя книга открывается с полным заполнением экрана, которое я задал в макросе

[nemoomen]

Спасибо, Valerij !

В итоге составлен следующий код:

Private Sub Workbook_Open()

Application.ScreenUpdating = False 'отключил обновление экрана
Application.EnableEvents = False
    
Dim i As Integer, xK As Long
i = 24: xK = 31
Sheets(1).Range(Cells(1, 1), Cells(xK, i)).Select
ActiveWindow.Zoom = True
Range("A1").Select

Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

Спасибо за идею! И Вам и SAS!

[EducatedFool]

В Вашем случае всё делается проще:

Sub testZoom()
    Set ra = Selection    ' запоминаем выделенную область листа
    [a1:g1].Select    ' выделяем нужное количество столбцов
    ActiveWindow.Zoom = True ' устанавливаем масштаб по выделению
    ra.Select ' восстанавливаем прежнее выделение на листе
End Sub

Или даже так:

Sub testZoom()
    [a1:g1].Select: ActiveWindow.Zoom = True
End Sub

[nemoomen]

Интересно, ну просто для собственного развития, почему всетаки первый код ошибку выдавал?
(вдруг пригодится, если освоить)

[EducatedFool]

почему всетаки первый код ошибку выдавал?

Вставь этот код в новый программный модуль (а не в модуль листа или книги, как ты делал это раньше)

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0, SM_CYSCREEN = 1

Private Sub Workbook_Open()
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    MsgBox "Разрешение экрана " & x & " * " & y
End Sub

[nemoomen]

Для того чтобы код сработал при открытии необходимо:

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0, SM_CYSCREEN = 1

разместить в новом модуле, а

Private Sub Workbook_Open()
    x = GetSystemMetrics(SM_CXSCREEN)
    y = GetSystemMetrics(SM_CYSCREEN)
    MsgBox "Разрешение экрана " & x & " * " & y
End Sub

в модуле "ЭтаКнига"

Моя благодарность EducatedFool за разъяснения!

[valerij]

Сообщение от EducatedFool

Вставь этот код в новый программный модуль (а не в модуль листа или книги, как ты делал это раньше)

Игорь, а как это делается, просвети?