VBA Excel

🖥 Форма на весь экран в VBA Excel
Хотите, чтобы UserForm автоматически разворачивалась на весь экран при открытии? Это можно сделать двумя простыми способами! 🚀

1️⃣ Пример с Application
Этот способ использует свойства Application для установки ширины и высоты формы.

Private Sub UserForm_Initialize()
    With Application
        .DisplayFullScreen = True 'Включаем полноэкранный режим
            Me.Width = .Width 'Устанавливаем ширину формы
            Me.Height = .Height 'Устанавливаем высоту формы
        .DisplayFullScreen = False 'Отключаем полноэкранный режим
    End With
End Sub

Плюсы:
✔️ Простая реализация без подгонки каких-либо коэффициентов.
✔️ Работает при любом разрешении и масштабировании экрана.
Минусы:
✖️ Мелькания программы Excel на экране при разворачивании и сворачивании.
✖️ В старых версиях Excel может не работать Application.DisplayFullScreen = True, но там можно попробовать Application.WindowState = xlMaximized.

2️⃣ Пример с WinAPI
Этот способ использует функцию API Windows для точного определения системных размеров экрана.

'Функция WinAPI размещается в стандартном модуле, в модуле формы она работать не будет
Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

'Эта процедура размещается в модуле формы
Private Sub UserForm_Initialize()
Dim k As Single
k = 1.99
    With Me
        .Width = GetSystemMetrics(0) / k 'Получаем ширину экрана
        .Height = GetSystemMetrics(1) / k 'Получаем высоту экрана
    End With
End Sub

Плюсы:
✔️ Отсутствие мельканий программы Excel на экране.
Минусы:
✖️ Требует использование функции WinAPI и применение коэффициента для подгонки размера формы под конкретный дисплей.

💡 Коэффициент необходим, чтобы учесть масштабирование экрана, которое часто установлено на 125%, 150% или выше. Возможно, что-то еще влияет, кроме масштабирования. У меня масштабирование - 150%, но форма разворачивается на весь экран при k = 1.99, а не при k = 1.5.

#VBA #ExcelVBA #Масштабирование #Форма #Экран

👍2

293 viewsedited 14:47