Всем доброе время суток !

На листе Excel есть елемент управления - кнопка или автофигура. Нажимает эту кнопку левой кнопкой мыши. После нажатия появляется заданный текст (или подсказка) рядом с указателем мыши. Появившийся текст (или подсказка) перемещается вместе с указателем мыши.

Такой вопрос - каким макросом можно реализовать представленную процедуру (программно создать текст возле указателя мыши) ?

BION, спасибо за поддержку !

В прикреплённом файле идея сохранена.

Есть образец не в Excel, но не могу прикрепить из-за размера - 1,98 Мб. Допускается не более 150 Кб. Есть, однако, адрес где можно посмотреть.

http://myappz.ru/business/page/11/

Там файл - Табель учёта рабочего времени 2.1. Для просмотра необходимо скачать и установить, перейти на закладку - Отработанные часы. Тоесть необходимо так как в этом файле на для Excel.

BION,

скорее всего все варианты подойдут. Вот только перепробовать бы их.

Application.Cursor = xlNorthwestArrow вставил так.


Public Sub ExcelTimer()
Dim lRetVal As Long
Dim Pos As POINTAPI
Dim Rec As RECT

Do While work
DoEvents

GetWindowRect Application.hwnd, Rec
lRetVal = GetCursorPos(Pos)
Worksheets(1).Label1.Left = (Pos.x - Rec.Left) / 1.31

' 1.31 разница scalemod's системи и окна excel, на глазок.
' 150 - примерная висота toolbar'a, тоже как-то нужно определить.
Worksheets(1).Label1.Top = (Pos.y - 150) / 1.31
Application.Cursor = xlNorthwestArrow

Loop
End Sub

Неуверен, что попал в нужное место, но макрос сразу стал привлекательний, нет "Wait", курсор не дрожит, тоесть теперь он работает.

Это начало. Возможно получится аналогичная автоматизация заполнения в Excel. Ещё раз большое спасибо !

BION,

после добавления Application.Cursor = xlDefault, курсор возвращается к первоначальному виду.

Сделаю заключение. На всякий случай. Возможно, в теме будет продолжение.

Текст возле указателя мыши необходим, в данном случае, для подсказки выбранного вида записи в табель. Для такого предназначения элемент управления Label имеет преимущества над самописними курсорами. В Excel всегда есть возможность создать точную копию любого документа с хорошим дизайном. В Label немало форматирования, поэтому есть возможность подобрать внешний вид Label под вид документа. В этом отношении применить Label – хорошее решение. Можно, очевидно, использовать и форму без заголовка, здесь тоже много форматирования, возможно даже больше.

Очевидно, елемент управления Label неоходимо перемещать вместе с указателем мыши. Для целей подсказки выбранного режима записи это наиболее наглядно. Однако потребуется определять координаты указателя. Есть варианты.

Следующим шагом после нажатия кнопки Start и получения подсказки на Label о виде записи неоходимо курсором вставить соответствующий знак в ячейку Excel (заполнять бланк табеля).

В этом месте проявляются такие небольшие несовершенства макроса. Знак в ячейку можно вписать одним щелчком левой кнопкой мыши. В принципе достаточно для разработчика. Однако есть пользователи. Для них-то неоходимо предусмотреть также два щелчка левой кнопкой мыши.

Два щелчка не пропускает макрос, очевидно из-за присутствия цикла. Кроме этого сообщение Status Bar мерцает.

В связи с чем лучшим способом определения координат указателя мыши, очевидно, есть использование API – функций.