Вывод изображения из листбокса (комбобокса)

[dsapa]

Здравствуйте!
На форме расположен listbox, в котором уже содержатся названия фотографий (из списка на одном из листов книги. Это я уже сделал кодом VBA).
На этой же форме расположен Image, в котором должны появляться эти фотографии по выделению конкретной строчки в listbox. Названия фотографий точно совпадают с названиями в листбоксе.
Главное: фотографии хранятся в той же директории, что и сам файл Excel, в папке (Pictures).
Заморочался с кодом, хотя предполагаю, что он несложный. Прошу помочь.
И еще: можно ли хранить все фотографии на листе Excel, копируя каждую из них в конкретную ячейку отдельного листа. Файл, конечно, разбухнет, однако не придется иметь специальную папку для изображений. Как это сделать?
Спасибо.

[EducatedFool]

Вот один из возможных способов:

[dsapa]

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

Вопрос: а можно ли в листбоксе убрать расширение файлов с точкой? Ну, чтобы читались бы только названия файлов без расширения. Спасибо.

[EducatedFool]

Почему бы и нет? Вот так, например:

[dsapa]

Работает, спасибо.
И все-таки не то!
Мне кажется, есть решение изящнее и проще.
И еще смущает наличие кнопок - это ведь дополнительные телодвижения.
Хорошо бы все вписать в Sub auto_open().
Буду искать.

[EducatedFool]

Сообщение от dsapa

Мне кажется, есть решение изящнее и проще.

Не спорю, это был лишь один из возможных вариантов

Сообщение от dsapa

И еще смущает наличие кнопок - это ведь дополнительные телодвижения.

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

Сообщение от dsapa

Хорошо бы все вписать в Sub auto_open().

Да запросто. См. вложение:

[dsapa]

Ай, спасибо, все работает!
Я даже не успел найти иное решение.
Вставляю ваш код целиком, не хочу больше заморачиваться с этим вопросом, лучше пойду программировать дальше.
Выражаю глубокую признательность.
Удачи!