Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Изменение цвета фигуры при наведении на нее курсором.
 
#1
12.10.2013 15:57:17
Здравствуйте!

Скажите возможно ли в excel сделать так чтобы при наведении курсора скажем на фигуру прямоугольник
он изменял цвет, при этом если кликнуть то запускается макрос, а если убрать курсор с фигуры то
возобновляется первоночальный цвет. Одним словом кнопка.
Обычные кнопки из "элементы управления формы" или "элементы ActiveX" не подходят так как требуемая
кнопка должна быть просто монотонно залитым квадратом без обрамлений тенюшочек точечек и тд..
 
 
 
#2
12.10.2013 17:12:14
Цитата
Обычные кнопки из "элементы управления формы" или "элементы ActiveX" не подходят
ну так используйте обычный Label - без текста, "тенюшечек" и т.п.
а для Label тоже можно задать обработку событий мыши.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#3
12.10.2013 17:44:59
Ни разу не сталкивался с этим, это где такое?
 
 
 
#4
12.10.2013 17:46:03
элементы управления, надпись.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#5
12.10.2013 17:56:11
Вкладка разработчик/вставить/элименты управления формы/подпись это вы имеете в виду или нет?
 
 
 
#6
12.10.2013 17:58:50
скорее всего - да. но на память не помню.
у меня сейчас 2003-я версия. там нет вкладок  :)
но ваш подход мне не нравится. хотя он тоже имеет право на существование.
если неохота поискать-погуглить-попробовать самому - то остается ждать, когда ложку ко рту поднесут  ;)
Изменено: ikki - 12.10.2013 18:00:12
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#7
12.10.2013 18:11:16
Зачем вы отвечаете на вопросы которве вам не нравятся?
 
 
 
#8
12.10.2013 18:15:24
извините пожалуйста.
ну откуда ж мне было знать, что простого ответа вам будет недостаточно?
что вам надо будет всё расписать по пунктам меню, показать на пальцах, приложить работающий пример с кодом? и именно для той версии excel, которая есть именно у вас?
теперь буду знать.
извините за беспокойство.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#9
12.10.2013 18:26:23
Нет, вы не поняли совершенно мне не нужно ни чего расписывать, и если вы прочтете мой вопрос то об этом
там и слова нету.
 
 
 
#10
12.10.2013 19:24:21
Цитата
возможно ли в excel сделать так
Возможно.
Как советовал Ikki , создайте Label, присвойте имя C1
Макрос
Код
Private Sub C1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If X < C1.Width / 2 And Y < C1.Height / 2 Then
 C1.BackColor = RGB(255, 0, 0)
ElseIf X > C1.Width / 2 And Y < C1.Height / 2 Then
 C1.BackColor = RGB(0, 255, 0)
ElseIf X < C1.Width / 2 And Y > C1.Height / 2 Then
 C1.BackColor = RGB(0, 0, 255)
Else
 C1.BackColor = RGB(190, 190, 190)
End If
End Sub

При наведении курсора
в левом верхнем углу кнопки - цвет красный
в правом верхнем - цвет зеленый
в левом нижнем - цвет синий
в правом нижнем - цвет серый
 
 
 
#11
12.10.2013 19:50:53
Цитата
мне не нужно ни чего расписывать, и если вы прочтете мой вопрос то об этом
там и слова нету.
Ну тогда, если отвечать на Ваш вопрос:
Цитата
возможно ли в excel сделать так чтобы при наведении курсора...
Ответ будет таков: возможно.
 
 
 
#12
13.10.2013 16:59:53
Могу ошибаться, но думаю что сделать в эксель требуемую кнопку пока не представляется возможным.
В противном случае она будет отличатся
Чтобы уточнить то что мне нужно даю ссылку на пример
http://files.mail.ru/873E094AA6264ED4A66A09ABFD6F4170
 
 
 
#13
13.10.2013 18:57:33
Код
Могу ошибаться, но думаю что сделать в эксель требуемую кнопку пока не представляется возможным.
Ошибаетесь. Возможно.
Поищите по форуму "Изменение размера рисунка при наведении" или что-то похожее. Вместо размера можно сделать заливку.
 
 
 
#14
13.10.2013 19:21:08
Первым делом там смотрел, там затрагивается тема изменение цвета, но при использовании либо стандартных
кнопок либо каких то хитрых которые по краям подсвечиваются мне такие не подходят.
 
 
 
#15
13.10.2013 20:28:19
Код
Первым делом там смотрел
"там" - это где? за облаками?
 
 
 
#16
13.10.2013 20:48:34
Михаил, файл ZVI с изменением размера применим только на 2003. 2007 и выше работать не будет.
Цитата
Первым делом там смотрел, там затрагивается тема изменение цвета, но при использовании либо стандартных кнопок либо каких то хитрых которые по краям подсвечиваются мне такие не подходят
Александр, там ОБЫЧНЫЕ рисунки, не вводите народ в заблуждение.
По Вашему вопросу - ведь было сказано, что возможно. Вариант был предложен ikki ещё в пером ответе. Я проверил - всё работает.
 
 
 
#17
13.10.2013 23:59:21
Цитата
Вариант был предложен ikki ещё в пером ответе. Я проверил - всё работает.
Работает точно так же как в моем примере?
 
 
 
#18
14.10.2013 00:01:14
Пример не скачивал - там не Excel-файл. И большой к тому же.
 
 
 
#19
14.10.2013 00:53:23
Не могу предоставить пример с работающей кнопкой в формате Excel так как не знаю как ее там сделать, да и смысл отсылать пример тогда отпадает, по этому я сделал пример в другой программе.

Если вы беспокоитесь на счет вирусов или чего то подобного, то могу точно вам сказать ни чего такого там нет
файл сделан в AutoPlay, а весит столько, потому что любое сохранение с этой программы, даже пустого окна уже начинается с этого объема.
 
 
 
#20
14.10.2013 00:56:21
Я верю Вам)) Поверьте и Вы мне: при наведении мыши меняется цвет заливки, убираем мыху - цвет заливки возвращается. Если остались над Label и потом кликнули по ней - выполняется макрос, а потом возвращается исходный цвет заливки.
 
 
 
#21
14.10.2013 01:18:37
Да, на счет облаков, я имел в виду эту тему:
http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=8408

Там в 15 посту вы предлагаете пример с кнопкой,
кнопка про которую вы говорите сейчас работает так же или по другому?
 
 
 
#22
14.10.2013 01:24:09
Сейчас я проверял не на кнопке, а на Label - получается обычный прямоугольник, как Вы и хотели. Работает так, как описано в #20.
 
 
 
#23
14.10.2013 01:29:56
Кстати, ZVI показывал файл, где определялся адрес ячейки, над которой находится указатель мышки. Кроме того, определялось имя автофигуры под мышкой. А если мы можем получить имя, то поменять цвет вообще не проблема. Запустить макрос по клику на этой автофигуре - вообще не не вопрос. Но там код значительно сложнее...
 
 
 
#24
14.10.2013 01:41:27
Юрий вы же программист, правильно я понимаю?
 
 
 
#25
14.10.2013 02:19:33
Мне пришла в голову мысль, не знаю почему раньше об этом не подумал
вы же профессионал и легко всё мне сделаете
А то от этих всех макросов голова пухнет, не моё это мягко говоря.
Что скажете?
 
 
 
#26
14.10.2013 10:27:12
так?
Живи и дай жить..
 
 
 
#27
14.10.2013 11:22:05
Слэн, в вашем примере цвет у кнопки не меняется, во всяком случае у меня.
 
 
 
#28
14.10.2013 11:25:26
перейдите на другой лист, а потом обратно..
Живи и дай жить..
 
 
 
#29
14.10.2013 11:43:00
Если вы сравните кнопку с моего римера с вашим вариантом то увидете разницу, в вашем варианте
при попадении курсора с верхней части кнопки, цвет не меняется.
Такую кнопку я немогу использовать.
 
 
 
#30
14.10.2013 14:53:24
См. вариант.
 
 
 
Страницы: 1 2 След.
Читают тему
Наверх