Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Библиотека контролов
 
#1
26.02.2013 07:48:17
Подскажите в какой библиотеке хранятся контролы, которые мы вставляем на лист через вкладку Разработчик (не Active X). Если библиотека - MSForms, то кто знает как привязать событие, к примеру MouseMove, для внедренной на лист кнопки?
 
 
 
#2
26.02.2013 08:15:10
а почему не Active X?
Учимся сами и помогаем другим...
 
 
 
#3
26.02.2013 09:29:19
Потому что в Object Browser-е не могу найти Active X с полным перечнем свойств и методов, как скажем в MSForms
 
 
 
#4
26.02.2013 09:42:03
Правой кнопкой над элементом ActiveX - Свойства. Не это разве нужно?
Учимся сами и помогаем другим...
 
 
 
#5
26.02.2013 10:04:28
Нет, не это нужно. Мы можем повесить событие на контролы в рамках формы, используя например следующее: Public WithEvents evnt As MSForms.Image. Ищу возможность сделать тоже самое только для контролов, внедренных на листе Excel.
 
 
 
#6
26.02.2013 10:28:30
Ищу возможность сделать тоже самое только для контролов, внедренных на листе Excel

Код
Set MyClass.evnt = ActiveSheet.Shapes("Image1").OLEFormat.Object.Object
 
 
 
#7
26.02.2013 11:22:24
garriott, уж что-что, а события отслеживать на контролах из ActiveX гораздо проще. Да и набор побольше...
 
 
 
#8
27.02.2013 09:39:46
Цитата
Казанский пишет:
Set MyClass.evnt = ActiveSheet.Shapes("Image1").OLEFormat.Object.Object

Казанский, не получается использовать данную строку. См прикрепленный файл.
 
 
 
#9
27.02.2013 13:08:12
Картинка должна быть не просто вставленной из файла картинкой, а элементом управления ActiveX - "Image". Переключитесь на Sheet2 и обратно на Sheet1, чтобы сработало событие Worksheet_Activate, и получайте:
 
 
 
#10
27.02.2013 13:16:06
А обычной картинке, как любому шейпу, можно назначить макрос (правый клик - Назначить макрос), который при клике будет смещать ее. Макрос может быть общим для всех шейпов в книге:
Код
Sub MoveMeDown()
With ActiveSheet.Shapes(Application.Caller)
    .Top = .Top + 10
End With
End Sub
 
 
 
#11
28.02.2013 02:10:16
Цитата
Казанский пишет:
Картинка должна быть не просто вставленной из файла картинкой, а элементом управления ActiveX - "Image". Переключитесь на Sheet2 и обратно на Sheet1, чтобы сработало событие Worksheet_Activate, и получайте:

Спасибо за ответ, Казанский, с ActiveX - это понятно, но не подходит. У ActiveX элементов нет точек присоединения, см скриншот. Поэтому в начале темы я написал, что не интересует ActiveX. Использование .OnAction тоже не подойдет, картинка не должна превращатся в "кнопку", запускающюю макрос.
 
 
 
#12
28.02.2013 04:00:00
Казанский, большое спасибо за пример!
Я даже не догадывался, что можно таким простым способом, без WinAPI (как в примере от ZVI),
отслеживать движение мыша над ней.
(как-то в голову не приходило, что можно вставлять картинки в контейнер Image)

Добавлю в свою надстройку режим вставки картинок, увеличивающихся при наведении мыша,
и возвращающихся к прежним размерам при уходе курсора с картинки.

PS: Вот только при сохранении файла (в формате XLS из Excel 2010), Excel почему-то говорит, что картинка в Image станет нередактируемой
Почему - так и не понял. Впрочем, фиг с ним, - главное, что все работает без грузящих систему таймеров для отслеживания мыша.
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#13
28.02.2013 04:06:49
А у меня как раз на основании примера от ZVI   :)
 
 
 
#14
28.02.2013 07:07:49
Sergei_A, в данном примере при наведении мыши на картинку или шейп TypeName(obj) все равно остается "Range", если навести на статус бар, значение TypeName(obj) станет Nothing. Вобщем не отлавливается картинка..... MS Excel 2007
 
 
 
#15
28.02.2013 13:24:22
garriott, возьмите обычную картинку, над ней разместите прозрачный ActiveX Image (BackStyle=0, BorderStyle=0), в процедуре обработки события перемещайте оба объекта.
 
 
 
#16
28.02.2013 13:29:30
Цитата
EducatedFool пишет:
Я даже не догадывался, что можно таким простым способом, без WinAPI (как в примере от ZVI),
отслеживать движение мыша над ней
Делаем приложения драг-н-дроп? )

Запостите в интересное, чтобы не потерять.

еще http://msdn.microsoft.com/en-us/library/office/aa220909(v=office.11).aspx
Изменено: nerv - 28.02.2013 13:37:59
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#17
28.02.2013 14:48:38
Цитата
Казанский пишет:
возьмите обычную картинку, над ней разместите прозрачный ActiveX Image (BackStyle=0, BorderStyle=0), в процедуре обработки события перемещайте оба объекта
чисто теоретически, это техника позволит отслеживать перемещение мыши на всем листе: ActiveX Image - помещаем в левый верхний угол, растягиваем его ширину и высоту на весь лист
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#18
28.02.2013 16:44:59
В продолжение темы - наводим мышь на картинку
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#19
28.02.2013 21:15:00
Интересное решение, решил отметиться чтобы тему не терять.  ;)
Спасибо
 
 
 
#20
28.02.2013 23:31:01
Цитата
R Dmitry пишет:
Интересное решение
да, Казанский, вообще генератор идей  :)

изменил у себя параметры убегания. Теперь от мыши бегает, а не набегает :) Кстати, обрабатывает 9 зон объекта.
Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

https://github.com/nervgh
 
 
 
#21
01.03.2013 01:26:14
Цитата
nerv пишет:
Цитата
R Dmitry пишет:
Интересное решение
да,  Казанский,  вообще генератор идей  :)

изменил у себя параметры убегания. Теперь от мыши бегает, а не набегает :) Кстати, обрабатывает 9 зон объекта.

nerv, отличное решение!
 
 
 
#22
01.03.2013 01:50:11
Цитата
garriott пишет:
Sergei_A, в данном примере при наведении мыши на картинку или шейп TypeName(obj) все равно остается "Range", если навести на статус бар, значение TypeName(obj) станет Nothing. Вобщем не отлавливается картинка..... MS Excel 2007

Попробовал данный пример на Excel 2010 - все работает. В Excel 2007 TypeName(obj)="Picture" как будто не существует.
 
 
 
Страницы: 1
Читают тему
Наверх