Страницы: 1
RSS
Примечание и элементам VBA, примечания элемента activex и элементу управления формы, расположенным на листе excel?
 
Возникла необходимость более подробного пояснения действий элементов управления и activex, расположенным на листе excel.
Решил сделать это с помощью примечания, но как не соображу.
Решить проблему путем добавления примечания ячейки к которой привязан элемент помогло далеко не везде.
Поиск ничего не дал, но если не ошибаюсь это возможно (вроде даже читал как это делать).

Может ли кто нибудь подсказать возможно ли это и как?
 
мне кажется так просто не сделать..

можно с помощью api следить за мышью и выводить что-нибудь свое..
Живи и дай жить..
 
У некоторых элементов на форме есть свойство:
ControlTipText
Если в него внести нужную надпись, то она появляется при наведении
мышки на элемент
 
Kuzmich
Цитата
ControlTipText
Увы, это только на форме, а у человека
Цитата
на листе excel
Можно попытаться что-нибудь отображать на обработку события MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single). Были на форуме обсуждения подобного вопроса, с тем или иным результатом успеха (правда, рассматривался вопрос для Shape, чтобы была обработка нажатия и подсказка как текст гиперссылки).
 
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=8&TID=29502&MID=259534#message259534

пример ControlTipText
 
Станислав, вы то же о том же. На форме да, всё отлично, вы на листе Excel покажите. ;)
Как вариант.
 
Anvg и Станислав большое спасибо за участие.
Anvg почему то Ваш вариант подглючивает и не всегда скрывает Примечание при перемещение мыши от ячейки в сторону(((
С формой Станислав добился того что бы Label отображался но не знаю как его скрыть(((


Код
Private Sub CheckBox_Autosave_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
   With Me.Label1
     .Visible = True
     .top = Me.CheckBox_Autosave + 30
     .Left = Me.CheckBox_Autosave + 200
   End With
End Sub


Private Sub  Вот_тут_проблема (ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Me.Label1.Visible = False
End Sub
 
надо еще одну форму под эту и чуть больше по размеру, на нее по движению мыши скрытие комментария
Живи и дай жить..
 
Вопрос закрыт. Метот anvg работате отлично.
Всем большое спасибо
 
Aleksey
Цитата
работате отлично.
Не всё там, увы, работает отлично. При быстром перемещении курсора, не всегда срабатывает. Возможно, поможет код Владимира (ZVI) Увеличение картинки и видео
Цитата
но не знаю как его скрыть
Проблема в том, что Label скрывается в обработчике события MouseMove формы, на листе формы нет, поэтому скрывать нечем.
 
Приложил вариант реализации всплывающей подсказки текстбокса на листе.
Подробное описание - в приложении. Макросы должны быть включены.
При загрузке может появиться предупреждение об использовании ActiveX на листе.
Чтобы это сообщение не появлялось нужно от имени администратора запустить приложенный файл Allow_ActiveX_OnSheet.reg
Изменено: ZVI - 20.12.2013 08:16:15 (Добавлено всплывающее примечание при редактировании текстбокса)
 
вот так можно, как я уже говорил
Живи и дай жить..
Страницы: 1
Читают тему
Наверх