NadyaPА текущий вопрос: UserForm1.Show использую, чтобы при наведении курсором окно появилось, а какой командой скрыть появившееся окно?

NadyaPМихаил, подскажите, пожалуйста,


Private Sub Image1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

ЧТО НАПИСАТЬ ЗДЕСЬ?????

UserForm1.Show

Else
UserForm1.Hide

End If

End Sub
Например это
Конечно, подход не профессиональный, а что делать - MouseMoveOver и MouseMoveOut отсутствуют, зато очень простой. В при этой реализации мышкой по Image1 очень быстро двигать нельзя, форма может не исчезнуть. Применимая в примере цифра 10 может быть изменена на другую, это зависит от размеров Image1 и пожелания автора.

NadyaP,
попробуйте свойство вашей формы изменить так

Shocker.Pro
А я вот лично вообще не врубаюсь, у вас Image1 где находится? Если на UserForm1, то UserForm1.Show в принципе сработать не может ибо, событие никогда не возникнет. А если не на форме, то где?
Image1 [с уменьшеным изображением] находится на листе, при наведении не него курсором должна появляться форма UserForm1, на которой будет свой Image [с увеличеным изображением].
NadyaP
не работает - ShowModal не найден.
в редакторе VBA выберите UserForm1 и в окне Properties измените свойство ShowModal на значение False

NadyaP
Должен быть один файл, содержащий в одном столбце около 400 рисунков, в соседнем описание, может быть, будут еще столбцы. Картинки будут легкие (схематично нарисованные детали), хорошее качество не требуется - главное при увеличении должно быть понятно, что нарисовано.
Картинки должны хранится в самом файле. При наведении на картинку она появляется увеличенная в отдельном окне, курсор убираем - исчезает.
Shocker.Pro
Но картинок много. Вы предлагаете под каждую создавать контейнер в виде Image1(n)?
А как это будет делать пользователь, который наполняет файл картинками? (впрочем, вопрос наполнения не поднимался)

Да, картинок много, около 400. Значит на листе будет ImageN, где N = от 1 до 400. Для каждого ImageN нужно будет описывать событие В описании каждого события при выполнении описанного выше условия должна запускаться некая функция (процедура) с входным параметром - путь к увеличенному файлу-картинки. Эта функция должна показывать форму UserForm1 и загружать картинку в Image, находящийся на форме UserForm1. При невыполнении условия - форма должна скрываться... Вот так, это мое видение, то как это можно реализовать.
Если просто добавить картинку на лист Excel, то... короче, она "не имеет" событий.
Может можно как-нить картинку "засунуть" в комментарий (Comment) ???
Shocker.Pro
Я сам не очень силен в VBA (все больше по VB), в экселе сам лист иметт какие-то события, в частности MouseOver?
Лист Excel не имеет событий, связяанных с "движением курсора мыши".

Shocker.ProА почему не использовать одно событие и массив контролов? В VBA такого нет?
Есть, но я мало разбираюсь в этом
Нужно в проект вставить модуль класса и назвать его ImageMyMoveClass и ввести следующий код потом создать модуль и поместить туда это
Конечно, 400 строк это не совсем красиво, просто надо подумать и сделать по другому, это только для наглядности.
Далее так
или самому запускать MyStart или как-нить по другому. MyStart обязательно должна быть запущена.
Свойство Image1, который на форме UserForm1, PictureSizeMode = 1 - fmPictureSizeModeClip
Свойство ImageN, которые на листе, PictureSizeMode = 3 - fmPictureSizeModeZoom

Shocker.Pro
Ну тогда лучше сначала разобраться :)
Потому что если можно сделать массив однотипных контролов, ваш код становится резко не нужен
Этот код не я придумал, а взял из книжки по VBA в Excel. У меня в Excel все работает. Если есть другие предложения... пожалуйста.