Подтянуть изображение в форму

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Подтянуть изображение в форму (Макросы/Sub)

Nikita085

Дата: Среда, 22.01.2020, 21:54 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Доброго вечера всем!)
Помогите справится с задачей:
Несть необходимый список работников предприятия, на Листе 1,
в форме идет поиск по ФИО и результат поиска необходимо вывести в IMAGE 1.
Фото называются так как записано файле.
Заранее благодарю за помощь)

К сообщению приложен файл: 5896.xlsm (12.6 Kb)

Ответить

Nikita085

Дата: Четверг, 23.01.2020, 20:28 | Сообщение № 2

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Помогите в написании макроса, пожалуйста))))

Ответить

Santtic

Дата: Пятница, 24.01.2020, 14:44 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 190

Репутация: 1 ±

Замечаний: 0% ±

Excel 2016

Цитата Nikita085, 23.01.2020 в 20:28, в сообщении № 2 ()

Помогите в написании макроса, пожалуйста))))

Вам прям очень макрос нужен? у меня такое реализовано в простом виде, без форм. Правда у меня всего 2 изображения меняется в зависимости от выбора оборудования.

Ответить

Nikita085

Дата: Суббота, 25.01.2020, 21:31 | Сообщение № 4

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

Ответить

RAN

Дата: Воскресенье, 26.01.2020, 10:01 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Рисунки вставляются так
[vba]

Код

Private Sub CommandButton1_Click()
' вставить новый рисунок
On Error Resume Next
Me.Image1.Picture = LoadPicture("D:\1372896.jpg")
If Err Then
Err.Clear
Me.Image1.Picture = LoadPicture ' удалить старый рисунок
End If
End Sub
Private Sub CommandButton2_Click()
Me.Image1.Picture = LoadPicture("D:\16415344.jpg")
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Воскресенье, 26.01.2020, 10:46

Ответить

Nikita085

Дата: Среда, 29.01.2020, 12:15 | Сообщение № 6

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

RAN, Благодарю за помощь!)

Ответить

Nikita085

Дата: Вторник, 31.03.2020, 20:59 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 34

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

Me.Image1.Picture = LoadPicture("D:\1372896.jpg")

[/vba]

В этой строке выполняеться действие вывода изображение, которое находится на диске Д с именем "1372896".
Подскажите как вывести изображение, которое необходимо найти на Диске Д в разных папках.
И как сформировать список в ListBox c найденными изображениями,
Заранее благодарен за помощь.)

Ответить

Подтянуть изображение в форму (Макросы/Sub)

Страница 1 из 1
1