Изменение рисунка при наведении курсора мыши

[ru3000]

Собственно, нужно чтобы при наведении на рисунок курсора он (рисунок) менялся на другой. Все что смог найти в инете и до чего сам додумался не привели к должному результату. Вот пример кода:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("<Адрес 2 картинки>")
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("<Адрес 1 картинки>")
End Sub

И не работает ни хрена. Может я чего не так делаю?

[Sparkman]

Dim b As Boolean
Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If b Then
        Image1.Picture = LoadPicture("C:\7.bmp")
        b = False
    End If
End Sub
Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    If Not b Then
        Image1.Picture = LoadPicture("C:\circle.bmp")
        b = True
    End If
End Sub

[ru3000]

Sparkman
Неа, не работает. Ругается на Image1_MouseMove. У меня Excel2010, может поэтому косяки? А может чего не туда вставляю? Если не трудно выложите ваш файл с рабочим кодом.

[EducatedFool]

Если не трудно выложите ваш файл с рабочим кодом.

Офигеть - вам надо получить рабочий код, а мы для этого ещё и файл воссоздавать должны...
Сами-то не в состоянии прикрепить файл с примером? Давно бы уже получили результат...


=============== добавлено позже ====================

У меня на сайте есть готовая программа для вставки изображений на лист Excel,
в которой присутствует описанный вами функционал:
http://excelvba.ru/programmes/PastePictures

Надстройка позволяет искать в выбранной папке изображения, основываясь на содержимом ячеек таблицы Excel, и производить вставку найденных изображений в соседние ячейки (или в примечания к этим ячейкам).

Кроме того, надстройка умеет скачивать изображения по ссылкам, сохраняя загруженные изображения в заданной папке, и вставлять картинки в примечания к ячейкам.




Особенности надстройки вставки изображений:

• загрузка изображений по ссылкам (обычная гиперссылка, просто текст ссылки - URL, формула =ГИПЕРССЫЛКА(), и т.п.)
• поиск картинок в подпапках заданной папки (глубина поиска по подпапкам не ограничена)
• установка выбранного пользователем размера для вставляемых изображений
• отображение состояния поиска и вставки изображений (прогресс-бар)
• вывод результатов обработки таблицы (сколько изображений вставлено, сколько не найдено)
• добавление гиперссылок к вставляемым изображениям (по щелчку на картинке открывается исходный файл)
• 2 режима поиска файлов - по точному совпадению имени файла, и по началу имени файла-изображения
• 2 режима вставки картинок - подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
• вывод количества файлов в выбранной папке
• возможность выбора столбца с названиями файлов, и указания номера столбца для вставляемых изображений
• возможность вставки изображений в комментарии к ячейкам

Запуск вставки изображений выполняется из меню программы (на панели инструментов)

Надстройка вставки картинок в Excel теперь поддерживает обновления - поэтому отныне надстройка будет регулярно получать новые полезные функции.

Новый функционал будет добавляться в надстройку по мере поступления ваших пожеланий.

[ru3000]

Sparkman Спасибо большое. Ваш пример работает как часы.
Только вот я не могу никак сообразить, как сделать это без UserForm непосредственно на самом листе. Если параметр UserForm поменять на Image1, то при наведении на картинку на странице excel ругается на эту измененную строчку. Посмотрите пожалуйста, что можно исправить.