Knopka_MouseUp - Microsoft Office Excel

nikolai_P · 20.05.2008, 10:58

Подскажите пожалуйста как повесить макрос на дествие Knopka_MouseUp. Я хотел бы чтобы у меня менялась картинка при этом действии. У меня почему-то не получается.

SAS888 · 20.05.2008, 12:18

Для листа (книги) Excel такого события нет (только для формы).
Можно использовать событие Worksheet_SelectionChange, которое отслеживает выбор любой ячейки. Но это "не совсем то".

nikolai_P · 20.05.2008, 12:20

У меня в книги форма. На ней картинка (кнопка). Можно чтобы при наведении на картинку она изменялась на другую, смысл - анимированная кнопка???

slan · 20.05.2008, 13:11

и флаг , кот нужно устанавливать при первом наступлении оного события и снимать при наступлении события userform_mousemove...

только надо, чтобы кнопка со всех сторон была окружена формой(чтобы не пересекалась с другими элементами управления, а то и на них придется отлавливать)

VictorM · 20.05.2008, 13:41

где-то так:

Код:

Private Sub Lкартинка_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Lкартинка.Top > 0 And Y < 18 And X > 0 And X < 102 Then Iкартинка1.Visible = False
End Sub
Private Sub Lкартинка_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Iкартинка2.Visible = False
СкрытьСтартФорм
Sheets("Картинка").Activate
End Sub
Private Sub Lкартинка_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Iкартинка2.Visible = True
End Sub

скопировал из рабочего кода, так что подправьте под свой проект имена

nikolai_P · 20.05.2008, 14:43

А как правиль загрузить картинку в Image

Код:

Image1.Picture = ???

VictorM · 20.05.2008, 14:58

Лучше назначить рисунок в редакторе VBE (не нужно будет потом хранить его отдельно)
Свойства кнопки > Picture
По умолчанию стоит (Bitmap). Выберите нужный рисунок.
то же самое и с Image.
p.s. Нужно только помнить, что в этом случае рисунки увеличивают размер файла .xls

nikolai_P · 20.05.2008, 15:19

У меня получилось вот что! Анимированная кнопка.rar
У кого есть решения получше?

VictorM · 20.05.2008, 16:45

есть вот такая заготовка. ( MouseMove не реализовано)

nikolai_P · 21.05.2008, 10:49

Спасибо

Думаю пригодится!

20.05.2008, 10:58	#1
nikolai_P Форумчанин Подтвердите свой е-майл Регистрация: 28.04.2008 Сообщений: 116	Knopka_MouseUp Подскажите пожалуйста как повесить макрос на дествие Knopka_MouseUp. Я хотел бы чтобы у меня менялась картинка при этом действии. У меня почему-то не получается. Программирование и разработка... \| Мой последний проект

20.05.2008, 12:18	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Для листа (книги) Excel такого события нет (только для формы). Можно использовать событие Worksheet_SelectionChange, которое отслеживает выбор любой ячейки. Но это "не совсем то". Чем шире угол зрения, тем он тупее.

20.05.2008, 12:20	#3
nikolai_P Форумчанин Подтвердите свой е-майл Регистрация: 28.04.2008 Сообщений: 116	У меня в книги форма. На ней картинка (кнопка). Можно чтобы при наведении на картинку она изменялась на другую, смысл - анимированная кнопка??? Программирование и разработка... \| Мой последний проект

20.05.2008, 13:11	#4
slan Форумчанин Регистрация: 30.01.2008 Сообщений: 314	для формы используйте событие commandbutton_mousemove и флаг , кот нужно устанавливать при первом наступлении оного события и снимать при наступлении события userform_mousemove... только надо, чтобы кнопка со всех сторон была окружена формой(чтобы не пересекалась с другими элементами управления, а то и на них придется отлавливать)

20.05.2008, 14:43	#6
nikolai_P Форумчанин Подтвердите свой е-майл Регистрация: 28.04.2008 Сообщений: 116	КАК загрузить картинку? А как правиль загрузить картинку в Image Код: `Image1.Picture = ???` Программирование и разработка... \| Мой последний проект

20.05.2008, 14:58	#7
VictorM Старожил Регистрация: 15.05.2008 Сообщений: 2,058	Лучше назначить рисунок в редакторе VBE (не нужно будет потом хранить его отдельно) Свойства кнопки > Picture По умолчанию стоит (Bitmap). Выберите нужный рисунок. то же самое и с Image. p.s. Нужно только помнить, что в этом случае рисунки увеличивают размер файла .xls "Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь" "Большое спасибо" - Z261597841314, R208907249777, U447361470499 Последний раз редактировалось VictorM; 20.05.2008 в 15:12.

20.05.2008, 15:19	#8
nikolai_P Форумчанин Подтвердите свой е-майл Регистрация: 28.04.2008 Сообщений: 116	Мой вариант! У меня получилось вот что! Анимированная кнопка.rar У кого есть решения получше? Программирование и разработка... \| Мой последний проект

21.05.2008, 10:49	#10
nikolai_P Форумчанин Подтвердите свой е-майл Регистрация: 28.04.2008 Сообщений: 116	Спасибо Думаю пригодится! Программирование и разработка... \| Мой последний проект