Как определить на котором из нескольких мониторов находится основное окно Ворд/Эксель?

@Emule-C2H5OH · Регистрация: 04.11.2016

Студворк — интернет-сервис помощи студентам

Приветствую.
Изначально интересующий меня вопрос выглядел так:

Дано: комп с несколькими мониторами (возможно более двух), экранные разрешения мониторов могут различаться.

Требуется (с помощью макроса VBA):
1. Определить количество мониторов.
2. Определить экранные разрешения для каждого монитора.
3. Определить на каком мониторе находится основное окно программы МС Офис.
4. Определить на каком мониторе находятся плавающие меню программы.
5. Запустить юзер-форму на том мониторе, на котором находятся плавающие меню, либо, если плавающие меню не открыты, то на мониторе соседнем с тем на котором находится основное окно программы.

К настоящему моменту времени я разобрался с первыми двумя пунктами следующим образом -

Visual Basic

'--------------------------------------------------------
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hDc As Long, ByVal nIndex As Long) As Long 
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'--------------------------------------------------------
if GetDC(0) or GetDC(1)... or... GetDC(n) <> 0 ' монитор существует
HeightScreen = GetDeviceCaps(GetDC(n), 10) ' размер экрана в пикселях по вертикали
PixelInInch = GetDeviceCaps(GetDC(n), 90) ' разрешение экрана в пикселях на дюйм

"размер экрана в поинтах по вертикали" = (HeightScreen / PixelInInch) * 72

НО...
Как всё же определить и возможно ли это вообще в Office-VBA -
На котором из нескольких мониторов находится основное окно Ворд/Эксель?

@Emule-C2H5OH · 08.11.2016, 15:32 **[ТС]**

Stand Up - вопрос с 3-го по 5-й пункты всё еще не теряет актуальность... увы...
---------------------------------------------
Пожилые Панки - Хой! Юра Хой - Хой!

@Emule-C2H5OH 6 / 3 / 0 Регистрация: 04.11.2016 Сообщений: 12
	08.11.2016, 15:32 [ТС]	2
	Stand Up - вопрос с 3-го по 5-й пункты всё еще не теряет актуальность... увы... --------------------------------------------- Пожилые Панки - Хой! Юра Хой - Хой! 0

Опции темы