Поиск и вывод нужного изображения в Excel 2007, VBA

[Stlline]

Здравствуйте! Только начинаю изучать VBA, а вот задача такая:
Есть папка с изображениями. В VBA в EXCEL 2007 нужно осуществить поиск по имени файла и вывести данное изображение. Т.е., например, я ищу изображение 3 в формате jpg, программа его находит и выводит. Вроде легкая задача, а справиться не могу((( Помогите пожалуйста!!


=============== примечание модератора ====================

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

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

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




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

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

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

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

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

[doober]

Вывести куда,каким образом изображение?

Их и искать не надо.если файл существует-программа просмотра его откроет

Dim Papka As String
'Papka  -путь к папке с файлами
Shell ("rundll32 shimgvw.dll,ImageView_Fullscreen " & Papka & "\3.jpg")

[Stlline]

Нет, немножко не так, дело в том, что мне нужно именно найти из файлов файл с нужным именем, а потом вывести на экран изображение.

[doober]

Как вариант.
Свой путь к папке вместо пропишете в процедуре Активации формы

Private Sub UserForm_Activate()
AddFiles (TextBox1.Text) 'здесь пропишите свой путь к папке вместо TextBox1.Text
End Sub

запустите форму

[Stlline]

Спасибо большое! Все прекрасно ищет в папке и выделяет зеленым, типа, да, есть такой файл, но не открывает картинку к сожалению

[doober]

Вышлите на мыло файл Excel -ваш,лишнюю информацию уберите.Папку с картинками,которые не открывает.
Странно-проверял,все работало.
Мыло в профиле

Возможная ошибка
Путь к папке прописывается так G:\VistaDriveIcon\Icons

Так ошибочная запись G:\VistaDriveIcon\Icons\ в данном случае картинка не откроется



Подправил макрос