Страницы: 1
RSS
Всплывающая подсказка при наведении курсора на фигуру
 
Здравствуйте, возможно ли создать всплывающую подсказку к фигуре на листе Excel (гиперссылка не подойдет). При этом фигура выполняет роль кнопки запускающей макрос, собственно подсказка нужна для объяснения свойств этой "кнопки".  
 
Прикрепляю файл. Если есть такая возможность буду рад.
 
ВотЪ :)
 
Что-то я ничего не вижу :-)
 
"-Видишь в поле суслика?  
-Нет!  
-А он там есть."
 
Не, - это прикол, что ли? Не вижу никаких сусликов (примечаний) в файле от kim. Или это из-за моей старенькой версии Офиса?
 
Там примечание как бы не на объекте, а в ячейке "под" объектом.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
И какой смысл в таком примечании-подсказке, если его не видно? :-)
 
Может макрос напишет кто, что то типа, при наведении мыши на фигуру происходит событие всплывающая подсказка, нажали на кнопку запустился макрос, подсказка пропала и (или) убрали курсор с фигуры пропала подсказка. Неужели нет способа?
 
А может возможно всплывающую подсказку привязать к CommandButton?  
 
Прикрепил пример.
 
В своё время ZVI здесь на Форуме выкладывал пример, где при наведении мышки на рисунок, этот рисунок увеличивался в размерах. Вам стоит поискать этот пример. Ведь есть возможность, например, на рисунке разместить надпись-подсказку мелким шрифтом, а при увеличении рисунка она станет читаемой. Или ещё как-нибудь использовать тот метод.
 
Вот - нашёл у себя в загашнике файл уважаемого ZVI, может Вам удастся приспособть его под свои нужды.
 
Ещё
 
Извиняюсь - одинаковые выложил. Вот другой :-)
 
Друзья!  
Подскажите, можно ли сделать так, чтобы при наведении курсора на кнопку, она как-то выделялась, например, меняла цвет???  
По поводу ControlTipText. Такое свойство доступно только для объектов на UserForm. Можно ли сделать какой-то аналог для кнопки, находящейся просто на листе?  
Спасибо.
 
Попробуйте так.
 
Пока делал уже и ответ появился, вот мой пример
 
Спасибо! Очень интересные примеры.  
Юрий, у Вас почему-то цвет не меняется, когда убираешь курсор.  
Алексей, скажите, а зачем Image нужен? Задержка - это нормально?  
 
Спасибо.
 
Задержки быть недолжно, возможно, если очень быстро переместить курсор мыши, то не всегда обрабатывается событие MouseMoveи и кнопка не меняет цвет в исходное положение.  
Image используется для возврата исходного цвета и шрифта для кнопки.  
При перемещении курсора над кнопкой возникает событие кнопки MouseMove, где задается цвет кнопки и шрифт. А для смены цвета кнопки в первоначальное состояние используется событие картинки MouseMove, т.к. нельзя определить когда курсор покидает область кнопки.  
В чем выражается задержка?
 
ответ мой, не авторизировался
 
Если цвет кнопки не меняется в исходное состояние при быстром перемещении курсора, то расширьте размер Image, находящийся под кнопкой. При этом кнопка должна остаться в центе, а края Image должны больше выступать за края кнопки.
 
Аалексей,  
спасибо. Научите, пожалуйста, как подобраться к этому Image. Иногда он проскакивает, но как его изменить?
 
Алексей,  
извиняюсь за опечатку в имени.  
 
Друзья,    
а можно ли сделать звуковое сопровождение для наведения указателя на кнопку?
 
Для изменения Image расположенного на листе необходимо войти в режим конструктора. Для этого на панели инструментов Visual Basic нажать кнопку с карандашом и линейкой. После этого два раза клачнуть мышкой по Image. После внесения изменений выйти из режима конструктора.  
Вот ссылка для проигрования звукового файла http://msoffice.nm.ru/faq/macros/miscellaneous2.htm#faq494  
Для вопросов не касающихся темы топика, наверно, лучше открыть новую тему. Потом легче найти что интересует на форуме
 
Алексей,  
торможу, простите: нашел, как к Image подобраться:)  
И со звуком разобрался!!!  
Прилагаю файл, кому интересно!  
 
Спасибо!
 
{quote}{login=serg1985}{date=22.09.2009 01:05}{thema=Re}{post}  
Юрий, у Вас почему-то цвет не меняется, когда убираешь курсор.{/post}{/quote}  
Он поменяется, когда кликните по кнопке, а затем уйдёте с неё. Так и делал. А "подсказку" можно сделать при помощи "Надписи", управляя её свойством Visible
 
Юрий,  
ну конечно же!!! Как я сам до этого не додумался!?  
Поставить на событие MouseMove появление надписи!!!  
Гениально!!!  
 
Спасибо!
 
Получились кнопки с подсветкой И подсказками сделаны так  
 
Код:  
 
 
Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  
CommandButton1.Font.Bold = True  
CommandButton1.BackColor = &HFF00&  
'With CommandButton1  
'.ControlTipText = "Телефоны клиентов"  
'End With  
End Sub  
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  
CommandButton1.Font.Bold = False  
CommandButton1.BackColor = &H8000000F  
End Sub  
 
работает но  
1. всплывающие подсказки сделал гиперссылками что плохо  
как Поставить на событие MouseMove появление надписи ?  
пробовал  
Код:  
 
 
'With CommandButton1  
'.ControlTipText = "Телефоны клиентов"  
'End With  
 
не работает тк вроде такое только в форме можно сделать  
 
2.бывает что цвет подсветки не меняется(не убирается), когда убираешь курсор или макрос срабатывает  
как это побороть?  
советовали - расширьте размер Image - но это не подходит тк при клике под кнопкой можно случайно попасть в поле Image  
 
файл с примером во вложении
Страницы: 1
Читают тему
Наверх