Как в зависимости от значения в ячейке вставить картинку в объект image?

Пользователь

Сообщений: 108 Регистрация: 23.01.2020

20.02.2020 12:00:34

Доброго времени суток, Друзья!
Прошу помочь мне... Нужен файлик, в котором в зависимости от Фамилии в ячейке, должна меняться фотография.
Есть папка со всеми фотографиями, которые подписаны по фамилии. Хотел попробовать через перебор, но что-то не выходит. Пример во вложении.

Прикрепленные файлы

пример.xlsm (27.45 КБ)

Дмитрий(The_Prist) Щербаков Пользователь Сообщений: 14896 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#2 20.02.2020 13:15:12 Вставить картинку в лист - по списку или выбору из ячейки Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

Настя_Nastya

Пользователь

Сообщений: 806 Регистрация: 14.07.2019

20.02.2020 13:39:17

для объекта Image1 (обновляется при "клике" на объект):

Код

Private Sub Image1_Click()
On Error GoTo Errors
Image1.Picture = LoadPicture(Range("F1") & "\" & Range("B13") & ".jpg")
GoTo Dalee
Errors: MsgBox "Фотография не найдена!"
Dalee:
End Sub

Остальные сами по аналогии

Прикрепленные файлы

пример (7).xlsm (28.96 КБ)

Изменено: Настя_Nastya - 20.02.2020 13:40:17

Dihlofos881 Пользователь Сообщений: 108 Регистрация: 23.01.2020	#4 21.02.2020 05:56:49 Большое спасибо, Друзья! Дмитрий, статья познавательная, спасибо за ссылку. Анастасия и вам спасибо за очень простое и эффективное решение! Сделал на основе ваших двух ваших ответов 1 макрос, который работает ровно так, как мне нужно)