Создание картинок в папке с подстановкой их в форму.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание картинок в папке с подстановкой их в форму. (Макросы/Sub)

Antimo1

Дата: Понедельник, 16.08.2021, 15:45 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 1

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

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

ДД. У меня сделан простой макрос для вставки в форму текста и картинок из папки. Бывают такие случаи, что картинки со значением ячейки "А3" нет в папке. В той же папке находится общий шаблон картинок "1.jpg". Можно ли его скопировать с переименованием в Range("A3") & ".jpg" и подставить в форму? Из форумов видел вариант с созданием новых переменных типа "Filename" и прочих. Может можно проще?
[vba]

Код

Sub вставитьФИОВФорму()

    Sheets("Temp").Select
    Range("A15").Value = "c:\Clinic\images"
    SlideForm1.TextBox1.Text = Range("A3").Value
    SlideForm1.TextBox2.Text = Range("A4").Value
    SlideForm1.TextBox3.Text = Range("A5").Value
    SlideForm1.TextBox4.Text = Range("A6").Value
    SlideForm1.TextBox5.Text = Range("A7").Value
    SlideForm1.Image1.Picture = LoadPicture(Range("A15") & "\" & Range("A3") & ".jpg")
    SlideForm1.Image2.Picture = LoadPicture(Range("A15") & "\" & Range("A4") & ".jpg")
    SlideForm1.Image6.Picture = LoadPicture(Range("A15") & "\" & Range("A5") & ".jpg")
    SlideForm1.Image4.Picture = LoadPicture(Range("A15") & "\" & Range("A6") & ".jpg")
    SlideForm1.Image5.Picture = LoadPicture(Range("A15") & "\" & Range("A7") & ".jpg")

End Sub

[/vba]