Вопрос:

VBA определить размер шрифта окна

excel vba excel-vba

508 просмотра

1 ответ

8 Репутация автора

У меня есть программа загрузки данных, которая помогает пользователям загружать огромное количество данных в Oracle. Но у каждого пользователя может быть своя настройка разрешения окна и размер шрифта дисплея.

Есть ли код, который может получить размер шрифта окна пользователя? Или меньше 100%, или средне 125%?

Автор: Tiffany Источник Размещён: 06.01.2018 09:45

Ответы (1)


1 плюс

13533 Репутация автора

Вы можете получить [или установить] рабочий стол Windows «Уровень масштабирования» с помощью соответствующего ключа реестра:

HKEY_CURRENT_USER\Control Panel\Desktop\LogPixels


Ценности:

96    - Меньше 100%
120   - Средний 125%
144   - Больше 150%
192   - Очень большой 200%
240   - Пользовательский 250%
288   - Пользовательский 300%
384   - Пользовательский 400%
480   - Пользовательский 500%


Если ваша цель состоит в том, чтобы определить, где разместить что-либо относительно ширины и высоты экрана, вам лучше проверить фактическое разрешение экрана примерно так:

Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Sub ScreenRes()
Dim w As Long, h As Long
    w = GetSystemMetrics32(0) ' width in points
    h = GetSystemMetrics32(1) ' height in points
MsgBox "X=" & w & ", Y=" & h
End Sub
Автор: ashleedawg Размещён: 08.01.2018 04:35
32x32