Автоматическое изменение размера формы в соответствии с размером экрана

[ruavia3]

SAS888, а можно при закрытии книги.xls восстанавливать размерность экрана, если она была изменена?

[SAS888]

По событию открытия книги (Workbook_Open), сохраните переменные x и y как Public. (см. пост №2). Затем, по событию закрытия книги (Workbook_BeforeClose), выполнить макрос из волжения "DisplayResolution", подставив .dmPelsWidth = x и .dmPelsHeight = y

[ruavia3]

Не получается
Может я не так объявил x,y? Посмотрите вложение.

[SAS888]

Посмотрите вложение. При открытии книги, запоминается текущее разрешение экрана и устанавливается разрешение 640 х 480.
При закрытии книги, разрешение экрана восстановится.
Подставьте в коде макроса требуемые значения.

[ruavia3]

всё летает) спасибо.

[segail]

Здравствуйте

Как установить ширину формы в зависимости от ширины экрана, кликом по кнопке

[EducatedFool]

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

Как установить ширину формы в зависимости от ширины экрана, кликом по кнопке

Если окно приложения развёрнуто на весь экран, то очень просто:

Private Sub UserForm_Click()
    Me.Left = 0: Me.Width = Application.Width
End Sub

[segail]

А если окно приложения не развернуто во весь экран?

[addy2k]

Добрый день !
У меня есть документ который я открываю всего на двух мониторах с разным разрешением !
Один 1680х1050 другой 1280х1024

Задача:
Определить размерность используемого монитора, подогнать строки и столбцы страницы под максимальное заполнение экрана монитора..

Нашел такое решение, но оно не работает ((

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