Как вставить изображение, находящееся на листе, в UserForm

@ZetMenChavo · Регистрация: 09.05.2022

Студворк — интернет-сервис помощи студентам

Здравствуйте. Суть в следующем, на Userform создается бокс Image где в процессе использования картинка должна будет меняться в зависимости от вводных данных.
Первый способ который я нашёл это загрузка картинки из указанной папки каждый раз когда используется форма

Visual Basic
1
Me.Image1.Picture = LoadPicture("Адрес к файлу")

Минус такого способа в том, что папка с файлами должны оставаться в одном месте, а при переносе на другой ПК её вовсе можно забыть скопировать.

Второй вариант, вставить все картинки в Image через окно Properties, команду Picture, и спрятать за границей формы.
Скрин 1
Картинки тогда сохраняются в форме и надобность во внешних файлах отпадает, можно просто прописать макросом копировать картинки из спрятанных Image в рабочие.
Но когда картинок много, то выходит нужно сначала каждую отдельно загрузить в Image, затем переименовать его чтоб упрастить поиск нужной картинки, что вылевается в очень долгий процесс.

И вот тут возникает вопрос: есть ли способ загружать в форму картинки, сохранённые на листах?
Скрин 2

@АЕ · 13.05.2022, 20:32

ZetMenChavo, если картинок не много, то может боксы наложить один на другой и поднимать на передний план нужный? (ПРОСТО ПРИШЛО В ГОЛОВУ- НЕ ПРОВЕРЯЛ)

@ZetMenChavo · 13.05.2022, 20:40 **[ТС]**

АЕ, ну это практически то же самое что прятать боксы с сохраненными в них картинками вне поля формы, как я и описывал.
И проблема в том, что картинок как раз таки много. Пока было штук 5-10 меня это не напрягало, но дошло до 176и, а в будущем может стать и больше. И как представлю что сново придётся одни и теже однообразные действия повторять с КАЖДЫМ боксом...(((

@АЕ · 13.05.2022, 20:45

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

И проблема в том, что картинок как раз таки много.

Тогда это база данных. Выросла форма из штанишек.

@ZetMenChavo · 14.05.2022, 18:26 **[ТС]**

АЕ, а что за база? Я только начал постигать возможности VBA, названия и свойства отдельных операторов узнавал через инет, по мере того как возникала необходимость в них для конкретных задач Так что я много чего ещё не знаю.

@АЕ · 14.05.2022, 21:25

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

а что за база?

Чтобы реализовать вашу хотелку в экселе надо хранить не файл а каталог. Вы уже к этому и сами пришли. База может содержать в таблицах сколько угодно вложенных файлов и картинок. (ну в пределах возможности, конечно). Ну а формы тут рисуются проще за счет этого. Посмотрите в сторону акцесса.

@ZetMenChavo · 15.05.2022, 22:21 **[ТС]**

Access да, чтож похоже опять за изучение садиться, причём с нуля, ибо до этого работать с ним не доводилось. Спасиб за подсказки, посмотрим чего можно добиться этим путём.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@АЕ ᴁ © 4171 / 2457 / 511 Регистрация: 13.12.2016 Сообщений: 8,343 Записей в блоге: 5
	13.05.2022, 20:32
	ZetMenChavo, если картинок не много, то может боксы наложить один на другой и поднимать на передний план нужный? (ПРОСТО ПРИШЛО В ГОЛОВУ- НЕ ПРОВЕРЯЛ) 0

@ZetMenChavo 6 / 5 / 2 Регистрация: 09.05.2022 Сообщений: 14
	13.05.2022, 20:40 [ТС]
	АЕ, ну это практически то же самое что прятать боксы с сохраненными в них картинками вне поля формы, как я и описывал. И проблема в том, что картинок как раз таки много. Пока было штук 5-10 меня это не напрягало, но дошло до 176и, а в будущем может стать и больше. И как представлю что сново придётся одни и теже однообразные действия повторять с КАЖДЫМ боксом...((( 0

@ZetMenChavo 6 / 5 / 2 Регистрация: 09.05.2022 Сообщений: 14
	14.05.2022, 18:26 [ТС]
	АЕ, а что за база? Я только начал постигать возможности VBA, названия и свойства отдельных операторов узнавал через инет, по мере того как возникала необходимость в них для конкретных задач Так что я много чего ещё не знаю. 0

@ZetMenChavo 6 / 5 / 2 Регистрация: 09.05.2022 Сообщений: 14
	15.05.2022, 22:21 [ТС]
	Access да, чтож похоже опять за изучение садиться, причём с нуля, ибо до этого работать с ним не доводилось. Спасиб за подсказки, посмотрим чего можно добиться этим путём. 0