Фото в форму excel - Word и Excel - помощь в работе с программами

Добавление изображений на элементы управления пользовательской формы. Свойство Picture. Привязка картинки в редакторе и из кода VBA Excel. Удаление изображения.

Свойство Picture есть у пользовательской формы и некоторых элементов управления: CheckBox, CommandButton, Frame, Image, Label, OptionButton, ToggleButton. Оно позволяет отобразить на этих объектах изображение с расширением jpg, bmp, gif.

Синтаксис

object.Picture = LoadPicture(«pathname»)

object – пользовательская форма или подходящий элемент управления;
pathname – полный путь к изображению.

Добавление изображений в редакторе VBA

Чтобы добавить картинку на форму или элемент управления в редакторе VBA Excel, необходимо в окне Properties выбранного объекта нажать кнопку с тремя точками в поле значений свойства Picture:

Откроется окно проводника, с помощью которого следует выбрать нужное изображение.

Картинка на элементе управления может использоваться вместо надписи или вместе с ней. За выравнивание изображения и положение надписи на объекте отвечает свойство PicturePosition. Подходящее значение свойства PicturePosition проще подобрать в окне Properties выбранного элемента управления.

Добавление изображений из кода VBA Excel

Пример кода VBA Excel, добавляющего надпись и изображение на элемент управления ToggleButton:

Private Sub UserForm_Initialize()

With ToggleButton1

.Caption = «Кекс домашний»

.Picture = LoadPicture(«C:PHOTOkeks.jpg»)

.PicturePosition = 4

End With

End Sub

Программное удаление изображения

Удаляется изображение из элемента управления в коде VBA Excel путем присвоения свойству Picture значения Nothing с помощью ключевого слова Set:

Set CommandButton1.Picture = Nothing

Источник

Обычно вставить изображение в рабочий лист в Excel несложно. Но знаете ли вы, как вставить указанное изображение в пользовательскую форму Excel? Эта статья покажет вам способ ее достижения.

Вставить указанное изображение в пользовательскую форму в Excel

Вставить указанное изображение в пользовательскую форму в Excel

Для вставки указанного изображения в пользовательскую форму в Excel. Пожалуйста, сделайте следующее.

1. В открывшейся книге Excel нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окно, пожалуйста, нажмите Вставить > Пользовательская форма. Смотрите скриншот:

3. Теперь вам нужно вставить Image Control в UserForm. Пожалуйста, нажмите на Фото товара в Ящик для инструментов диалоговом окне, затем нарисуйте элемент управления изображением в UserForm вручную. Смотрите скриншот:

4. Щелкните правой кнопкой мыши вставленный элемент управления Image и нажмите Предложения из контекстного меню, как показано на скриншоте ниже:

5. Затем вы увидите Предложения панель отображается в левой части Microsoft Visual Basic для приложений окно. Прокрутите вниз до Картина поле, а затем щелкните кнопка. Смотрите скриншот:

6. в Добавить фото В диалоговом окне найдите и выберите изображение, которое хотите вставить в пользовательскую форму, а затем щелкните значок Откройте кнопка. Смотрите скриншот:

7. Теперь выбранное изображение вставлено в пользовательскую форму. Выберите 1 — fmPictureSizeModeStretche из файла PictureSizeMode раскрывающийся список в Алфавитный вкладка для отображения всего изображения в форме пользователя. Смотрите скриншот:

Статьи по теме:

Как центрировать изображение в ячейке Excel?
Как проверить, есть ли в ячейке изображение в Excel?
Как динамически вставлять изображение или изображение в ячейку на основе значения ячейки в Excel?
Как увеличить изображение при нажатии на него в Excel?

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник

fanat

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

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

25.04.2016 17:26:51

Доброго времени суток товарищи!

До последнего боролся с этой на мой взгляд простой проблемой
Файл загружать не вижу смысла потому что и так будет ясно суть проблемы
Вообщем создал кнопку на листе , вызывается форма , на форме Окно Image ,кнопка , текстбокс , при нажатии на кнопку открывается окно выбора файла (проводник) , выбираем файл, жмем ок , путь файла выписывается в текстбокс , далее процедура LoadPicture должна забирать этот путь из текстбокса и загружать картинку в окно Image

Код
Private Sub CommandButton2_Click() UserForm1.TextBox3.Value = Chr$(34) & Application.GetOpenFilename & Chr$(34) UserForm1.Image1.Picture = LoadPicture("TextBox3.Value") End Sub

Как только не извращался с этим кодом , выдает разные ошибки , если напрямую вписывать путь который вставляется в текстбокс то картинка грузится , а как начинаю пытаться забрать путь из бокса так всё , крах, Runtime Error такой сякой

Подскажите пожалуйста как корректно забрать путь из бокса чтобы загрузилась картинка всё таки
Спасибо

Пытливый

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

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

25.04.2016 17:30:43

я так подозреваю, что «косяк» — вот тут:

Код
UserForm1.Image1.Picture = LoadPicture("TextBox3.Value")

(приготовьтесь, сейчас будем карму улучшать)
Повторяйте за мной: «В программе, все то, что в кавычках — является СТРОКОВЫМ ЗНАЧЕНИЕМ»
Еще повторяйте: «Программа — тупая, если ей пальцем не показать, она не понимает, где расположен элемент»
Достигаем просветления и пробуем такое:

Код
UserForm1.Image1.Picture = LoadPicture(UserForm1.TextBox3.Value)

Получилось?

Кому решение нужно — тот пример и рисует.

fanat Пользователь Сообщений: 87 Регистрация: 01.01.1970	Я уж обрадовался и вспомнил тонкости Vba , но нет , вставил , пишет Runtime Error 75 Path file access error ( Ети её мать !!!

fanat Пользователь Сообщений: 87 Регистрация: 01.01.1970	Всё получилось !!! Премного благодарен за напутствие ! Стёр Chr$(34) & в первой строке

Пытливый

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

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

25.04.2016 17:43:31

агх…..
А picture с таким Path — есть ваще? И он эта, того… full?

Ибо написано в справке, коя есть опора и надежда наша в дни затыка:

Код

Specifies the bitmap to display on an object.

Syntax

object.Picture = LoadPicture( pathname )

The Picture property syntax has these parts:

Part Description 
object Required. A valid object. 
pathname Required. The full path to a picture file.

З.ы.
Податься в гуры, что ли…
Удачи!

Изменено: Пытливый — 25.04.2016 17:47:58

Кому решение нужно — тот пример и рисует.

fanat

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

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

А как задать динамический адрес на картинку , если например книга находится в той же папке где и рисунки , я например скидываю эту папку на флешку и если ссылки на картинки останутся такими, то на другом компьютере они не откроются , необходимо чтоб открылись , как в таком случае получить ссылку на картинку и установить папку с файлом эксель корневой ?

Спасибо

Игорь Пользователь Сообщений: 3632 Регистрация: 23.12.2012	Посмотрите такой вариант: http://excelvba.ru/programmes/ShowPictures PS: к сведению модераторов, это ссылка на бесплатное решение с моего сайта не надо снова жаловаться на меня владельцу сайта

Максим Иванов

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

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

02.05.2017 13:53:53

Код
UserForm1.TextBox1.Value = Application.GetOpenFilename UserForm1.Image1.Picture = LoadPicture((TextBox1.Text))

Chr$(34) Это ставить ковычки
они не нужны

Изменено: Максим Иванов — 02.05.2017 14:52:16

Источник

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

Visual Basic

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

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

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

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

Источник

Содержание

Особенности вставки картинок
- Вставка изображения на лист
- Редактирование изображения
Прикрепление картинки
- Способ 1: защита листа
- Способ 2: вставка изображения в примечание
- Способ 3: режим разработчика
Вопросы и ответы

Некоторые задачи, выполняемые в таблицах, требуют установки в них различных изображений или фото. Программа Excel имеет инструменты, которые позволяют произвести подобную вставку. Давайте разберемся, как это сделать.

Особенности вставки картинок

Для того, чтобы вставить изображение в таблицу Эксель, оно сначала должно быть загружено на жесткий диск компьютера или подключенный к нему съёмный носитель. Очень важной особенностью вставки рисунка является то, что он по умолчанию не привязывается к конкретной ячейке, а просто размещается в выбранной области листа.

Урок: Как вставить картинку в Microsoft Word

Вставка изображения на лист

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

Выделяем ту ячейку, куда вы хотите вставить изображение. Переходим во вкладку «Вставка». Кликаем по кнопке «Рисунок», которая размещена в блоке настроек «Иллюстрации».

Открывается окно вставки рисунка. По умолчанию оно всегда открывается в папке «Изображения». Поэтому вы можете предварительно перебросить в неё ту картинку, которую собираетесь вставить. А можно поступить другим путем: через интерфейс этого же окна перейти в любую другую директорию жесткого диска ПК или подключенного к нему носителя. После того, как вы произвели выбор картинки, которую собираетесь добавить в Эксель, жмите на кнопку «Вставить».

После этого рисунок вставляется на лист. Но, как и говорилось ранее, он просто лежит на листе и фактически ни с одной ячейкой не связан.

Редактирование изображения

Теперь нужно отредактировать картинку, придать ей соответствующие формы и размер.

Кликаем по изображению правой кнопкой мыши. Открываются параметры рисунка в виде контекстного меню. Кликаем по пункту «Размер и свойства».

Открывается окно, в котором присутствует множество инструментов по изменению свойств картинки. Тут можно изменить её размеры, цветность, произвести обрезку, добавить эффекты и сделать много другого. Всё зависит от конкретного изображения и целей, для которых оно используется.

Но в большинстве случаев нет необходимости открывать окно «Размеры и свойства», так как вполне хватает инструментов, которые предлагаются на ленте в дополнительном блоке вкладок «Работа с рисунками».

Если мы хотим вставить изображение в ячейку, то самым важным моментом при редактировании картинки является изменение её размеров, чтобы они не были больше размеров самой ячейки. Изменить размер можно следующими способами:
- через контекстное меню;
- панель на ленте;
- окно «Размеры и свойства»;
- перетащив границы картинки с помощью мышки.

Прикрепление картинки

Но, даже после того, как изображение стало меньше ячейки и было помещено в неё, все равно оно осталось неприкрепленным. То есть, если мы, например, произведем сортировку или другой вид упорядочивания данных, то ячейки поменяются местами, а рисунок останется все на том же месте листа. Но, в Excel все-таки существуют некоторые способы прикрепления картинки. Рассмотрим их далее.

Способ 1: защита листа

Одним из способов прикрепить изображение является применение защиты листа от изменений.

Подгоняем размер рисунка под размер ячейки и вставляем его туда, как было рассказано выше.

Кликаем по изображению и в контекстном меню выбираем пункт «Размер и свойства».

Открывается окно свойств рисунка. Во вкладке «Размер» удостоверяемся, чтобы величина картинки была не больше размера ячейки. Также проверяем, чтобы напротив показателей «Относительно исходного размера» и «Сохранить пропорции» стояли галочки. Если какой-то параметр не соответствует указанному выше описанию, то изменяем его.

Переходим во вкладку «Свойства» этого же окна. Устанавливаем галочки напротив параметров «Защищаемый объект» и «Выводить объект на печать», если они не установлены. Ставим переключатель в блоке настроек «Привязка объекта к фону» в позицию «Перемещать и изменять объект вместе с ячейками». Когда все указанные настройки выполнены, жмем на кнопку «Закрыть», расположенную в нижнем правом углу окна.

Выделяем весь лист, нажатием сочетания клавиш Ctrl+A, и переходим через контекстное меню в окно настроек формата ячеек.

Во вкладке «Защита» открывшегося окна снимаем галочку с параметра «Защищаемая ячейка» и жмем на кнопку «OK».

Выделяем ячейку, где находится картинка, которую нужно закрепить. Открываем окно формата и во вкладке «Защита» устанавливаем галочку около значения «Защищаемая ячейка». Кликаем по кнопке «OK».

Во вкладке «Рецензирование» в блоке инструментов «Изменения» на ленте кликаем по кнопке «Защитить лист».

Открывается окошко, в котором вводим желаемый пароль для защиты листа. Жмем на кнопку «OK», а в следующем открывшемся окне снова повторяем введенный пароль.

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

Урок: Как защитить ячейку от изменений в Excel

Способ 2: вставка изображения в примечание

Также можно привязать рисунок, вставив его в примечание.

Кликаем по ячейке, в которую планируем вставить изображение, правой кнопкой мышки. В контекстном меню выбираем пункт «Вставить примечание».

Открывается небольшое окошко, предназначенное для записи примечания. Переводим курсор на его границу и кликаем по ней. Появляется ещё одно контекстное меню. Выбираем в нём пункт «Формат примечания».

В открывшемся окне настройки формата примечаний переходим во вкладку «Цвета и линии». В блоке настроек «Заливка» кликаем по полю «Цвет». В открывшемся перечне переходим по записи «Способы заливки…».

Открывается окно способов заливки. Переходим во вкладку «Рисунок», а затем жмем на кнопку с одноименным наименованием.

Открывается окно добавления изображения, точно такое же, как было описано выше. Выбираем рисунок и жмем на кнопку «Вставить».

Изображение добавилось в окно «Способы заливки». Устанавливаем галочку напротив пункта «Сохранять пропорции рисунка». Жмем на кнопку «OK».

После этого возвращаемся в окно «Формат примечания». Переходим во вкладку «Защита». Убираем галочку с параметра «Защищаемый объект».

Переходим во вкладку «Свойства». Устанавливаем переключатель в позицию «Перемещать и изменять объект вместе с ячейками». Вслед за этим жмем на кнопку «OK».

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

Способ 3: режим разработчика

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

Находясь во вкладке «Файл» переходим в раздел «Параметры».

В окне параметров перемещаемся в подраздел «Настройка ленты». Устанавливаем галочку около пункта «Разработчик» в правой части окна. Жмем на кнопку «OK».

Выделяем ячейку, в которую планируем вставить картинку. Перемещаемся во вкладку «Разработчик». Она появилась после того, как мы активировали соответствующий режим. Кликаем по кнопке «Вставить». В открывшемся меню в блоке «Элементы ActiveX» выбираем пункт «Изображение».

Появляется элемент ActiveX в виде пустого четырехугольника. Регулируем его размеры перетаскиванием границ и помещаем в ячейку, где планируется разместить изображение. Кликаем правой кнопкой мыши по элементу. В контекстном меню выбираем пункт «Свойства».

Открывается окно свойств элемента. Напротив параметра «Placement» устанавливаем цифру «1» (по умолчанию «2»). В строке параметра «Picture» жмем на кнопку, на которой изображено многоточие.

Открывается окно вставки изображения. Ищем нужную картинку, выделяем её и жмем на кнопку «Открыть».

После этого можно закрывать окно свойств. Как видим, рисунок уже вставлен. Теперь нам нужно полностью привязать его к ячейке. Выделяем картинку и переходим во вкладку «Разметка страницы». В блоке настроек «Упорядочить» на ленте жмем на кнопку «Выровнять». Из выпадающего меню выбираем пункт «Привязать к сетке». Затем чуть-чуть двигаем за край рисунка.

После выполнения вышеперечисленных действий картинка будет привязано к сетке и выбранной ячейке.

Как видим, в программе Эксель имеется несколько способов вставить изображение в ячейку и привязать его к ней. Конечно, способ со вставкой в примечание подойдет далеко не всем пользователям. А вот два остальных варианта довольно универсальны и каждый сам должен определиться, какой из них для него удобнее и максимально соответствует целям вставки.

Источник