Пересчет размеров окна от разрешения экрана пользователя

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Пересчет размеров окна от разрешения экрана пользователя (Макросы/Sub)

mrovr55

Дата: Воскресенье, 21.07.2024, 21:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

2010,2016

Приветствую,
вопрос ,как правильно пересчитать размер окна и его положение ( widht, Height, Top, Left ) при изменении разрешения экрана
Пример
текущее разрешение 1920х1200
Запущен Excel ,развернут на весь экран.
Внутри приложения открыта книга , размеры окна этой книги
[vba]

Код

With ActiveWindow
.Caption = "Табло"
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
.Top = 570
.Left = 15
.Width = 1410
.Height = 161
.DisplayWorkbookTabs = False
End With

[/vba]
Внутри этого окна отображается диапазон A1:S7
Это размеры и положение окна при разрешении 1920х1200

Для пересчета использую код в событии открытия книги
[vba]

Код

With Application
.WindowState = xlMaximized
uh = .UsableHeight
uw = .UsableWidth
End With
Procent = uw * 100 / 1440 ' 1440 это значение UsableWidth при ширине 1920
With ActiveWindow
.DisplayVerticalScrollBar = False
.DisplayHorizontalScrollBar = False
.Width = 1410 * uw / 1440
.Height = 161 * uh / 731.25
.Top = uh - .Height
.Left = 15
.DisplayWorkbookTabs = False
.Zoom = Procent
Range("A1").Select
End With

[/vba]

Все вроде работает но при существенно меньших разрешениях экрана внутри окна не все строки помешаются
Может кто посоветует другой вариант

Валерий

Ответить

Пересчет размеров окна от разрешения экрана пользователя (Макросы/Sub)

Страница 1 из 1
1