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

[ru3000]

Есть UserForm, размером 400x400. Возможно ли реализовать следующий запрос:
чтобы макрос подгонял размер формы, при ее открытии, под размер экрана. Например: размер экрана 800x600, форма принимает размер чуть меньше - 600x400. Экран - 1024x768, а форма - 824x568. Экран - 1280x800, форма - 1080x600 Т.е. получается на 200 единиц каждый параметр меньше.

[SAS888]

Определить разрешение экрана можно при помощи WinAPI-функции. Например:

Declare Function GetSystemMetrics Lib "user32.dll" (ByVal nIndex As Long) As Long
    
Sub test()
    x = GetSystemMetrics(0)
    y = GetSystemMetrics(1)
    MsgBox "Разрешение дисплея :" & x & " : " & y
End Sub

После этого, можно установить требуемые Width и Heigth формы.
Однако, если Вам нужно развернуть форму на весь экран (не зависимо от разрешения), то лучше воспользоваться другими API-функциями:

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Sub test2()
    ShowWindow FindWindow(vbNullString, UserForm1.Caption), 3&
End Sub

[ru3000]

Спасибо за ответ. Только я не могу разобраться со вторым кодом. Как и куда вписать его если у меня уже есть своя форма?

[SAS888]

Строка кода

ShowWindow FindWindow(vbNullString, UserForm1.Caption), 3&

инициализирует окно (форму) с именем UserForm1.Caption. Т.е. если у Вас есть форма UserForm1 с любым присвоенным именем (Caption), то будет вызвана именно эта форма и развернута на весь экран (свойство 3&). Если нужно отобразить другую форму - сделайте соответствующие изменения в коде.

[ru3000]

Спасибо, большое!

[ruavia3]

Вопрос, по размеру экрана. Можно ли при открытии книги.xls делать размер экрана всегда 1280х1024?

[SAS888]

Это не так просто. Посмотрите один из возможных вариантов во вложении.

[ruavia3]

Очень круто! А можно еще дописать, чтобы после изменения размеров экрана, окно Excel разворачивалось во весь экран?

[Aent]

Application.DisplayFullScreen = True

[ruavia3]

Aent, спасибо. Работает)