Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Создание картинок в папке с подстановкой их в форму. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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]


Сообщение отредактировал Serge_007 - Понедельник, 16.08.2021, 16:34
 
Ответить
СообщениеДД. У меня сделан простой макрос для вставки в форму текста и картинок из папки. Бывают такие случаи, что картинки со значением ячейки "А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]

Автор - Antimo1
Дата добавления - 16.08.2021 в 15:45
R_Dmitry Дата: Понедельник, 16.08.2021, 21:49 | Сообщение № 2
Группа: Друзья
Ранг: Новичок
Сообщений: 46
Репутация: 27 ±
Замечаний: 0% ±

2010
Тут можете найти все ответы
тынц


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеТут можете найти все ответы
тынц

Автор - R_Dmitry
Дата добавления - 16.08.2021 в 21:49
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание картинок в папке с подстановкой их в форму. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования Jobsora jooble
© 2010-2021 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!