Вставка изображения в Microsoft Excel - TurboComputer.ru
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд (пока оценок нет)
Загрузка...

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

Как в Excel вставить картинку?

Добрый день!

Совсем недавно моему коллеге поручили сделать презентацию доклада, а в любом отчете много таблиц и картинок. Поэтому ко мне он подошел с закономерным вопросом: «Как в Excel вставить картинку?». Это сделать достаточно просто и легко, а также очень полезно, т.к. 80% информации успешнее усваивается с помощью визуальных образов. Для презентаций, прайсов, базы данных, эта возможность станет очень полезной и необходимой.

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

Простая вставка рисунка

В панели инструментов, во вкладке «Вставка» находится целый блок «Иллюстрации» с помощью которых вы можете добавлять изображения к себе в файл. В дальнейшем, при активизации картинки появляться дополнительная вкладка работы с рисунками «Формат». С ее помощью вы сможете отредактировать свое изображение (на примере, я показал, как производится обрезка ненужной части фото). Это конечно не фотошоп, но с картинкой можно хорошо поработать. Также можете воспользоваться контекстным меню (клик на картинке правой кнопкой мыши) и с предложенного варианта выбрать пункт «Размер и свойства…» и в открывшемся окне «Формат рисунка» есть очень много полезных настроечек.

Поместить изображение в примечание

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

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

Вставка картинки в ячейку

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

Добавление изображения с помощью макросов

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

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

До встречи на страницах TopExcel.ru!

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

Вставка данных из рисунка

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

Примечание: Это одна из нескольких функций бета-версии, и в настоящее время она доступна только для участников программы предварительной оценки Office. Мы будем продолжать оптимизацию этих функций, и когда они будут готовы, мы выпустим их для всех участников программы предварительной оценки Office и подписчиков Microsoft 365.

С помощью новой функции данных из рисунка вы можете вставлять данные из вырезки экрана в буфер обмена, файл изображения с компьютера или с камеры iPhone.

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

Как это работает

Запишите данные из изображения. Существуют три способа.

Использование существующего файла рисунка

Нажмите кнопку вставить > данные из файла аватара > рисунок.

На изображении должны изображаться только те данные, которые вы хотите импортировать. При необходимости обрежьте изображение.

Не используйте изображения, которые вымышлены данные из угла — перспектива должна быть головной и сфокусированной. Если применимо, можно попробовать устранить перспективу с помощью элементов управления iPhone.

Создание снимка экрана

Сделайте снимок таблицы, а затем выберите команду вставить > данных из буфера обмена > изображение.

Убедитесь, что снимок экрана содержит только те данные, которые вы хотите импортировать.

Отсканируйте данные с помощью iPhone (для этого требуется iPhone Настройка камеры для бесперебойнойработы).

В Excel щелкните ячейку правой кнопкой мыши и выберите команду сканировать документы.

Наaim камеру на iPhone по данным.

Настройте освещение и фокусировку, а затем коснитесь кнопки, чтобы сделать снимок.

Внесите все необходимые изменения в изображение и нажмите кнопку сохранить.

Документ, который вы просматриваете, должен быть правильно освещен как можно скорее.

Убедитесь, что вы просматриваете только те данные, которые вы хотите импортировать.

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

После того как вы захватываете рисунок, диалоговое окно “данные из рисунка” показывает ход выполнения анализа данных в Excel.

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

Возможные действия

Импорт данных из образца файла изображения Щелкните правой кнопкой мыши на следующем изображении и сохраните локальную копию, а затем выберите команду вставить > данные из рисунка > рисунок из файла и следуйте инструкциям на экране, чтобы преобразовать рисунок в данные.

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

Читайте также:  Программа Microsoft Excel: прибавление процента к числу

Снимок экрана с таблицей на веб-сайте Если вы когда-либо пытались скопировать и вставить некоторые данные с сайта, возможно, вы заметили, что форматирование выглядит по-другому после того, как вы вставили его, а не с сайта. Вместо этого попробуйте создать вырезку экрана в таблице (нажав клавиши SHIFT + CTRL + CMD + 4 на компьютере Mac), а затем выберите вставить > данные из рисунка > рисунок из буфера обмена. Затем следуйте инструкциям на экране.

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

Начало работы

Откройте Excel на телефоне или планшете и нажмите кнопку Вставка данных из рисунка для начала работы.

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

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

Нажмите Вставить, когда вы закончите работу, и Excel завершит процесс преобразования и отобразит данные.

Функция вставки данных из рисунка в настоящее время поддерживается на следующих языках:

Как вставить изображение в Excel 2016

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

Для того, чтобы фотография оказалась в одной из ячеек в Microsoft Excel, файл должен находиться на одном из жестких дисков компьютера или на съемном носителе, который будет подсоединен к компьютеру. Важно помнить, что пользователю будет недостаточно только вставить файл. Это лишь отобразит его на листе, но не прикрепит к ячейкам.

Как вставить фотографию?

Для начала следует разобраться с процедурой вставки фото.

    Работа начинается с выделения нужной ячейки или диапазона ячеек. Для этого следует кликнуть по выделенной области правой кнопкой мышки. После этого необходимо перейти к разделу «Вставка». Здесь нужно выбрать «Рисунки».

  • В открытом окне можно будет выбрать необходимое изображение. Открывшееся окно автоматически отобразит файлы в папке «Изображения». Можно заранее перенести нужное фото в папку или выбрать его местоположение вручную. После того, как необходимый файл будет найден и выбран, следует нажать на кнопку «Вставить».
  • В результате фото появится на листе.

    Изменение параметров фото

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

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

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

    Для изменений размера фото можно использовать следующие инструменты:

    • Контекстное меню;
    • Инструменты редактирования в ленте;
    • Окно «Размеры и свойства»;
    • Ручное изменение границ фотографии.

    Способы закрепления изображения.

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

    Защищенные ячейки

    Для того, чтобы прикрепить изображение, можно изменить параметры защиты ячеек.

    1. Отредактировать размер фото под ваши нужны.
    2. Нажать правой кнопкой мышки по картинке и выбрать графу «Размер и свойства».
    3. После этого откроется окно, где можно будет увидеть подробные характеристики рисунка. Следует проверить все параметры в графе «Размер». После этого необходимо проставить галочки в графах «Сохранить пропорции» и «Относительно исходного размера».

  • В этом же окне находится блок «Свойства». Необходимо проверить наличие галочек у пунктов «Выводить объект на печать» и «Защищаемый объект». Также следует поставить галочку у пункта «Перемещать и изменять объект вместе с ячейками». После осуществления всех перечисленных выше действий, следует закрыть окно.
  • Далее нужно выделить весь все ячейки на листе нажатием Ctrl+A. Нажать правую кнопку мыши на любой выделенной ячейке и перейти в «Формат ячеек».

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

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

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

    Установка изображения в режиме «Разработчик»

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

    1. Перейти в раздел «Файл» и выбрать пункт «Параметры».
    2. В результате откроется меню, где нужно выбрать «Настройка ленты». Пользователь должен поставить галочку перед пунктом «Разработчик». Далее следует подтвердить свои действия, нажав «Ок».

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

  • На экране появится элемент ActiveX, который выглядит как небольшой четырехугольник. Следует изменить размеры окошка вручную, подогнав его под размеры области для вставки. После этого необходимо нажать на появившуюся область правой кнопкой мыши и выбрать «Свойства».
  • Найдите опцию «Placement» и укажите в ней цифру «1». У параметра «Picture» можно увидеть троеточие, необходимо нажать на него, чтобы вставить фотографию.

  • В появившемся окне можно будет выбрать и вставить нужное фото.
  • Эти действия позволят вставить рисунок. Однако к ячейкам он еще не привязан. Для того, чтобы завершить процедуру, следует выделить фотографию и выбрать пункт «Разметка страницы». Далее нужно перейти в раздел «Упорядочить», который расположен в правой части экрана и выбрать команду «Выровнять». В появившемся окне следует выбрать пункт «Привязать к сетке». После этого пользователь сможет привязать фото к ячейке или диапазону ячеек.
  • Читайте также:  Подсчет заполненных ячеек в Microsoft Excel

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

    Если после прочтения статьи у вас остались вопросы напишите их в комментарии или воспользуйтесь рубрикой Вопрос — ответ

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

    В этом курсе:

    Выполните одно из указанных ниже действий.

    Нажмите кнопку вставить > изображений > это устройство для изображения на компьютере.

    Выберите вставка > изображений > биржевые изображения для высококачественных изображений и фона.

    Нажмите кнопку вставить > рисунков > изображения из Интернета для изображения в Интернете.

    Совет: Чтобы вставить рисунок из OneDrive, откройте раскрывающийся список в левом верхнем углу и выберите OneDrive вместо Bing.

    Выберите рисунок и нажмите кнопку Вставка.

    Изменение размера и перемещение рисунков

    Чтобы изменить размер рисунка, выделите его и перетащите один из угловых маркеров.

    Чтобы обеспечить обтекание текста вокруг рисунка, выделите его и выберите соответствующую команду.

    Совет: Укажите вариант, отличный от В тексте, и вы сможете перемещать рисунок на странице. Для этого его необходимо будет выделить и перетащить.

    Что такое EPS?

    Файлы EPS больше не могут быть вставлены в документы Office. Дополнительные сведения можно найти в разделе Поддержка для изображений в формате EPS отключена в Office.

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

    Процедура

    Щелкните место вставки рисунка в документе.

    Вставка рисунка, хранящегося на компьютере

    На вкладке Вставка в группе Иллюстрации щелкните Рисунок.

    Найдите рисунок, который вы хотите вставить. Например, в документахможет находиться файл рисунка.

    Дважды щелкните рисунок, который вы хотите вставить.

    На вкладке Вставка в группе Иллюстрации щелкните Клип.

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

    Нажмите кнопку Перейти, а затем в списке результатов щелкните картинку, чтобы вставить ее в документ.

    Для поиска коллекций картинок и изображений из Интернета используется Bing. Чтобы не нарушать авторские права, пользуйтесь фильтром по лицензии в Bing: он поможет выбрать изображения, которые можно использовать.

    Дальнейшие действия

    Чтобы изменить размер рисунка, выберите рисунок, вставленный в документ. Чтобы увеличить или уменьшить размер в одном или нескольких направлениях, перетащите маркер изменения размера в направлении от центра.

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

    Совет Office.com постоянно обновляется новым содержимым, в том числе инструкциями, видеороликами и учебными курсами. Если в нижней части средства просмотра справки указано не в сети и вы подключены к Интернету, щелкните автономный режими выберите пункт Показать содержимое из Office.com.

    Что необходимо сделать

    Щелкните место в документе, куда вы хотите вставить рисунок.

    На вкладке Вставить нажмите кнопку Рисунки.

    Выберите способ вставки изображений.

    Параметр ” Фотоальбом ” помогает просматривать существующие наборы фотографий на компьютере, например фотографии в iPhoto или на стенде. С помощью кнопки ” Рисунок из файла ” можно просматривать сведения о структуре файлов на компьютере, чтобы найти фотографии.

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

    Совет: Изображение внедрено в документ. Если размер файла изображения слишком велик, вы можете не вставлять картинку, а связать с ней свой документ. В диалоговом окне Выбор рисунка установите флажок связать с файлом .

    Вы можете вставить изображение или фотографию в текст сообщения электронной почты, а не вложить файл. Для вставки рисунка требуется, чтобы в сообщении использовалось форматирование HTML. Чтобы задать форматирование HTML, выберите параметры > HTML.

    В тексте сообщения щелкните в том месте, куда вы хотите добавить рисунок.

    На вкладке Сообщение нажмите кнопку Рисунки.

    Выберите способ вставки изображений.

    Параметр ” Фотоальбом ” помогает просматривать существующие наборы фотографий на компьютере, например фотографии в iPhoto или на стенде. С помощью кнопки ” Рисунок из файла ” можно просматривать сведения о структуре файлов на компьютере, чтобы найти фотографии.

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

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

    Удерживая нажатой клавишу CONTROL, щелкните рисунок, а затем — Изменить рисунок.

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

    Вставить картинку в лист – по списку или выбору из ячейки

    Сама по себе задача вставки картинки на листе не сложная и ответ лежит на поверхности: это доступно прямо из меню: Вставка (Insert) -группа Иллюстрации (Illustrations)Рисунок (Picture) :

    Кодом VBA вставить тоже не сложно, даже макрорекордер записывает это действие:

    Sub InsertPicture() ActiveSheet.Pictures.Insert(“G:ДокументыИзображенияExcel_vba_ru.png”). _ Select End Sub

    Но что делать, если вставить надо картинку из заранее известной папки, но с изменяющимся именем? А если при этом еще надо не просто вставить – а подогнать размер картинки под размер ячейки? Например, в ячейке А2 название товара(соответствует названию картинки), а в В2 должно быть изображение. Здесь уже посложнее. Но тоже вполне реализуемо при помощи VBA

    ‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ https://www.excel-vba.ru ‘ info@excel-vba.ru ‘ WebMoney – R298726502453; Яндекс.Деньги – 41001332272872 ‘ Purpose: вставка в ячейку картинки с подгонкой под размеры ячейки ‘————————————————————————————— Sub InsertPicToCell() ‘путь к папке с картинками Const sPicsPath As String = “G:ДокументыИзображения” Dim sPicName As String, sPFName As String, sSpName As String Dim oShp As Shape Dim zoom As Double ‘в этой ячейке выпадающий список с именами картинок sPicName = Range(“A2”).Value ‘если имя картинки не задано If sPicName = “” Then Exit Sub End If ‘проверяем наличие картинки в папке sPFName = sPicsPath & sPicName If Dir(sPFName, 16) = “” Then Exit Sub End If ‘в эту ячейку вставляем картинку With Range(“B2”) On Error Resume Next ‘задаем картинке уникальный адрес, ‘привязанный к адресу ячейки sSpName = “_” & .Address(0, 0) & “_autopaste” ‘если картинка уже есть – удаляем её Set oShp = ActiveSheet.Shapes(sSpName) If Not oShp Is Nothing Then oShp.Delete End If ‘вставляем выбранную картинку Set oShp = ActiveSheet.Shapes.AddPicture(sPFName, False, True, .Left + 1, .Top + 1, -1, -1) ‘определяем размеры картинки в зависимости от размера ячейки zoom = Application.Min(.W >

    Читайте также:  Способы абсолютной адресации в Microsoft Excel

    Чтобы использовать код необходимо создать в книге стандартный модуль(переходим в редактор VBA( Alt + F11 ) –InsertModule) и вставить в него приведенный выше код. Чтобы картинка вставилась в ячейку, надо записать имя картинки в ячейку A2 , нажать сочетание клавиш Alt + F8 и выбрать макрос InsertPicToCell. Не очень удобно, правда?
    Значит теперь попробуем сделать так, чтобы при каждом изменении в А2 картинка менялась сама, без необходимости запускать каждый раз код вручную. Для этого придется использовать возможность Excel отслеживать такие события, как изменения ячейки(чтобы лучше понять где это лучше сразу прочитать статью Что такое модуль? Какие бывают модули? и особое внимание уделить описанию про модули листов). Теперь чуть переделываем код:

    Private Sub Worksheet_Change(ByVal Target As Range) ‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ https://www.excel-vba.ru ‘ info@excel-vba.ru ‘ WebMoney – R298726502453; Яндекс.Деньги – 41001332272872 ‘ Purpose: вставка в ячейку картинки с подгонкой под размеры ячейки ‘————————————————————————————— ‘путь к папке с картинками Const sPicsPath As String = “G:ДокументыИзображения” Dim sPicName As String, sPFName As String, sSpName As String Dim oShp As Shape Dim zoom As Double ‘т.к. список с именами картинок у нас в ячейке А2, ‘то определяем, что значение изменилось именно в ней ‘ если в ячейке А2 имена картинок, а список товара в другой ячейке ‘ то надо заменить А2 на ту, которая изменяется списком или руками If Intersect(Target, Range(“A2”)) Is Nothing Then ‘изменения не в А2 – ничего не делаем, завершаем код Exit Sub End If ‘в этой ячейке выпадающий список с именами картинок sPicName = Range(“A2”).Value ‘если имя картинки не задано If sPicName = “” Then Exit Sub End If ‘проверяем наличие картинки в папке sPFName = sPicsPath & sPicName If Dir(sPFName, 16) = “” Then Exit Sub End If ‘в эту ячейку вставляем картинку With Range(“B2”) On Error Resume Next ‘задаем картинке уникальный адрес, ‘привязанный к адресу ячейки sSpName = “_” & .Address(0, 0) & “_autopaste” ‘если картинка уже есть – удаляем её Set oShp = ActiveSheet.Shapes(sSpName) If Not oShp Is Nothing Then oShp.Delete End If ‘вставляем выбранную картинку Set oShp = ActiveSheet.Shapes.AddPicture(sPFName, False, True, .Left + 1, .Top + 1, -1, -1) ‘определяем размеры картинки в зависимости от размера ячейки zoom = Application.Min(.W >

    Теперь переходим на лист, где в А2 будет изменяться название картинки -правая кнопка мыши на этом листе –Посмотреть код (View Code) . Вставляем код выше. Все, теперь при любом изменении в А2 картинка будет изменяться(если указанный файл будет найден в нужной папке).
    Если картинки расположены не в “G:ДокументыИзображения” , а в той же папке, что и сама книга с кодом, достаточно эту строку
    Const sPicsPath As String = “G:ДокументыИзображения”
    заменить такими
    Dim sPicsPath As String
    sPicsPath = ThisWorkbook.Path & “”
    тогда папка с книгой будет определяться автоматически.
    Но я понимаю, что куда правильнее в ячейке А2 при помощи выпадающего списка выбирать наименование товара, а в В2 при помощи функции ВПР(VLOOKUP) подтягивать из справочника название картинки и уже по этому названию вставлять картинку. Но подстроить код под это уже не сложно. Приводить его здесь не буду, т.к. можно будет запутаться с описанием списка, функций, где и что. Тем более что сам код практически не отличается. К тому же именно в этой реализации код есть в приложенном к статье файле.

    И еще часто встречающаяся задача по вставке картинок – это вставка картинок массово. Т.е. вставить картинки на основании значений, записанных в столбце. В данном случае это столбец В. А вставлять картинки будем в столбец С, подгоняя размеры картинок под размер каждой ячейки и проверяя, не вставляли ли мы эту картинку туда ранее

    Впрочем, основная часть кода была приведена выше – здесь мы лишь добавим цикл по ячейкам. Так же в этом коде мы используем диалог выбора папки, в котором просматривать картинки:

    ‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ https://www.excel-vba.ru ‘ info@excel-vba.ru ‘ WebMoney – R298726502453; Яндекс.Деньги – 41001332272872 ‘ Purpose: вставка в ячейку картинки с подгонкой под размеры ячейки ‘————————————————————————————— Option Explicit Sub InsertPictureByVal() Dim sPicsPath As String Dim sPicName As String, sPFName As String, sSpName As String Dim llastr As Long, lr As Long Dim oShp As Shape Dim zoom As Double ‘выбираем путь к папке с картинками With Application.FileDialog(msoFileDialogFolderPicker) .Title = “Выбрать папку с картинками” ‘заголовок окна диалога .ButtonName = “Выбрать папку” .Filters.Clear ‘очищаем установленные ранее типы файлов .InitialFileName = ThisWorkbook.Path ‘назначаем первую папку отображения .InitialView = msoFileDialogViewLargeIcons ‘вид диалогового окна If .Show = 0 Then Exit Sub ‘показываем диалог sPicsPath = .SelectedItems(1) ‘считываем путь к папке End With ‘ если путь надо указать статичный – вместо диалога прописываем одну строку ‘ sPicsPath = “C:images” ‘проверяем, есть ли слеш после пути к папке ‘если нет – добавляем, иначе путь к картинке будет неверный If Right(sPicsPath, 1) <> Application.PathSeparator Then sPicsPath = sPicsPath & Application.PathSeparator End If ‘определяем последнюю ячейку по столбцу с именами картинок llastr = Cells(Rows.Count, 2).End(xlUp).Row ‘если кроме шапки в столбце с именами картинок ничего нет If llastr “” And sPicName <> “” Then ‘в эту ячейку вставляем картинку With Cells(lr, 3) ‘задаем картинке уникальный адрес, ‘привязанный к адресу ячейки sSpName = “_” & .Address(0, 0) & “_autopaste” ‘если картинка уже есть – удаляем её Set oShp = Nothing On Error Resume Next Set oShp = ActiveSheet.Shapes(sSpName) If Not oShp Is Nothing Then oShp.Delete End If On Error GoTo 0 ‘вставляем выбранную картинку Set oShp = ActiveSheet.Shapes.AddPicture(sPFName, False, True, .Left + 1, .Top + 1, -1, -1) ‘определяем размеры картинки в зависимости от размера ячейки zoom = Application.Min(.W >

    Прикладываю пример в формате ZIP-архива, т.к. вместе с самим файлом с кодом я приложил папку images, которая содержит картинки, используемые для вставки в файле. Папка images и сам файл с кодом должны быть распакованы в одну папку.
    Скачать файл:

    Вставить картинку в ячейку (366,9 KiB, 111 скачиваний)

    Обратная задача – сохранение картинок из листа – уже разбиралась мной в этой статье: Как сохранить картинки из листа Excel в картинки JPG

    Статья помогла? Поделись ссылкой с друзьями!

    Ссылка на основную публикацию
    Adblock
    detector