Установить указатель мыши на кнопку

Установить указатель мыши на кнопку_(?)

Пользователь

Сообщений: 131 Регистрация: 01.01.1970

26.12.2014 16:39:15

Здравствуйте уважаемые форумчане!
Прошу совета по следующему вопросу : на листе (Excel-2013) расположена кнопка, по её нажатию на экран выводится UserForm на которой тоже есть кнопка "Ок". Вопрос: можно ли используя vba сделать чтобы указатель мыши автоматически помещался на кнопку "Ок" экранной формы? Пож-та, подскажите код.
Файлик аттачу.
Спасибо за помощь.
С уважением.

Прикрепленные файлы

UF.xlsm (19.4 КБ)

Игорь

Пользователь

Сообщений: 3695 Регистрация: 23.12.2012

26.12.2014 23:24:27

Делается при помощи WinAPI функции

Код
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Цитата
Она ставит указатель мыши в нужную позицию с координатами, соответствующими разрешению экрана (Например от 0х0 до 1280х800)

осталось только вычислить абсолютные координаты кнопки
типа x = Userform1.left + Userform1.CommandButton1.left + Userform1.CommandButton1.width / 2

Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

AndyGrouve Пользователь Сообщений: 131 Регистрация: 01.01.1970	#3 27.12.2014 02:54:18 Игорь, БОЛЬШОЕ спасибо!

Альфа-Самец

Пользователь

Сообщений: 5 Регистрация: 27.12.2014

27.12.2014 07:54:37

Через API это делается, упс (уже ктото ответил)

Цитата
осталось только вычислить абсолютные координаты кнопки

как-раз с координатами, нашему юзеру и придётся немного помучиться

Изменено: Альфа-Самец - 27.12.2014 08:02:19

AndyGrouve Пользователь Сообщений: 131 Регистрация: 01.01.1970	#5 27.12.2014 11:52:25 Спасибо всё получилось. Тему считаем закрытой.

Читают тему