Tw-city.info

IT Новости
1 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Как добавить картинку в excel

Как вставить фото в ячейку Эксель

Всем привет! У пользователей редактора таблиц «Microsoft Excel» достаточно часто возникает потребность во вставке изображения, картинки в документ. Итак, сегодня мы детально расскажем вам об этом процессе. Давайте приступим.

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

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

Мы разделили инструкцию на три основных этапа, чтобы вам было легче её читать. Итак, давайте приступим.

Этап 1 — Помещение фотографии на лист

Итак, для того, чтобы вставить картинку в таблицу делаем следующее:

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

2) После этого откроется окно загрузки фотографий. Так как в операционной системе «Виндовс» папка, в которой по умолчанию хранятся фотографии называется «Изображения», то в неё вас и переадресует.

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

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

Этап 2 — Подгоняем размеры изображения

Итак, настало время приступить к редактированию размеров нашего фотоснимка. Для этого разработчики добавили несколько инструментов.

1) Нажимаем на вставленную картинку ПКМ, после чего будет открыт раздел редактирования параметров изображения. Здесь нам нужно будет перейти во вкладку «Размер и свойства».

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

Но нам нужно, как вы уже догадались, изменение размера, поэтому мы переходим во вкладку «Размер».

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

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

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

Этап 3 — Привязка изображения к ячейке

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

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

Метод 1 – Меню защиты листа

Данный метод наиболее часто используют пользователи редактора таблиц «Эксель». Итак, для привязки картинки к ячейке делаем следующее:

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

3) В появившемся разделе нужно перейти во вкладку «Размер». Здесь вам нужно убедиться в том, что картинка чётко подходит к ячейке по своему размеру.

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

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

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

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

Метод 2 – Загрузка картинки в «Примечание»

1) Нажимаем правую кнопку мышки внутри той ячейки, в которую требуется вставить картинку. В появившемся меню настроек необходимо выбрать пункт «Вставить примечание».

Метод 3 – Меню разработчика

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

1) Переходим в меню «Файл», а оттуда в раздел «Параметры».

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

В разделе разработчика необходимо нажать на пункт «Вставить» и в разделе «Элементы ActiveX» нужно нажать на вкладку «Изображение».

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

После этого нажимаем по этому четырёхугольнику правой кнопкой мыши и переключаемся к разделу «Свойства».

5) Итак, мы попали в раздел настроек этой пустой фигуры. У параметра «Placement» необходимо изменить значение на «1», так как обычно установлено «2».

А у параметра «Picture» необходимо нажать на троеточие, которое располагается напротив названия элемента.

7) Итак, теперь меню настроек можно смело закрывать. Как вы можете заметить, теперь заместо пустого четырёхугольника мы получили нужную нам картинку. Только она всё ещё не прикреплена к ячейке.

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

На этом всё. Теперь нужная нам картинка прикреплена к ячейке.

Итак, как вы видите, прикрепить картинку к ячейке достаточно просто. Надеемся, что данная статья смогла помочь вам.
Всем мир!

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

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

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

Читать еще:  Как скачать видео с вебинара

В некоторых случаях удобно вставить картинку из интернета. Выполните на ленте Вставка – Иллюстрации – Изображения из интернета .

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

При вставке картинки из поиска Bing, Вам учтиво напомнят о соблюдении авторских прав.

Так же, можно вставить изображение копированием. Если в каком-то из открытых приложений есть изображение, скопируйте его (например, нажав Ctrl+C ). Вернитесь в Эксель и нажмите Ctr+V , рисунок будет вставлен.

Как вставить копию экрана

В Майкрософт Эксель нового поколения появилась интересная возможность – вставка копии экрана. Например, нужно добавить скриншот какой-то Вашей разработки. Откройте нужное окно, потом перейдите в Эксель и нажмите Вставка – Иллюстрации – Сделать снимок экрана . Эксель отобразит миниатюры всех открытых окон, выберите нужное. На листе сразу же появится копия этого окна.

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

Форматирование рисунка в Excel

Когда вы вставили рисунок на лист, можно его немного приукрасить. Кликните по нему, чтобы выделить. На ленте появится новая вкладка: Работа с рисунками – Формат .

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

Если ни один из них Вам не подходит, задайте собственный с помощью ленточных кнопок «Граница рисунка», «Эффекты для рисунка», «Макет рисунка». Если использовать опции «Макет рисунка», он преобразуется в объект SmartArt и на ленте появятся еще две вкладки для его настройки.

Отличный набор инструментов для форматирования рисунков Вы найдете на ленте Работа с рисунками – Формат – Изменение . Здесь можно удалить фон с рисунка, наложить художественные фильтры, произвести коррекцию и настроить цветовые тона. Функционал сопоставим с некоторыми графическими редакторами. К тому же, все делается очень просто, интуитивно понятно.

Очень полезная опция в этой группе – «Сжать рисунок». Программа оптимизирует рисунки для снижения объема файла и ускорения его загрузки.

Как и для остальных графических объектов (фигур, SmartArt, WordArt), присутствует группа команд «Упорядочение». Эти команды помогут выровнять вставленные картинки по вертикали и горизонтали, равномерно их распределить, повернуть, сгруппировать и разгруппировать.

В блоке «Размер» задайте точные размеры рисунка, если это необходимо.

Ну а чтобы выполнить «тонкую настройку» всех возможных параметров объекта, кликните по нему и нажмите Ctrl+1 . В открывшемся диалоговом окне будет полный перечень всех настроек картинки: цвет, контур, формата текста, тени, яркость, контрастность, разрешение выводить на печать, привязка к ячейкам и многое другое. Описание всех настроек заняло сделало бы статью в несколько раз длиннее, поэтому оставляю их Вам на самостоятельное изучение.

Пожалуй, по этой теме все. Из графических объектов Эксель нам осталось изучить редактор уравнений. Если Вы студент, или преподаватель точных наук – не пропустите этот небольшой пост, он именно для Вас! До новых встреч!

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

Нередко пользователи Microsoft Excel встречаются с трудностями при добавлении в ячейку электронной таблицы изображения. Конечно, сделать это можно обычным копированием файла (Ctrl+C, Ctrl+V), однако вставить и закрепить его внутри ячейки этим способом не получится.

Добавление картинки в ячейку Excel

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

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

Способ 1: Ручное изменение размеров изображения

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

    Установить нужные размеры картинки и вставить её внутрь ячейки.

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

В окне «Формат рисунка» развернуть список настроек раздела «Размер» и отметить галочками строки: «Сохранить пропорции», «Относительно исходного размера».

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

Выделить всю страницу, используя комбинацию клавиш «Ctrl+A». Вызвать контекстное меню и выбрать «Формат ячеек».

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

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

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

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

Режим разработчика обычно используется опытными пользователями, поэтому в табличном редакторе он отключён по умолчанию.

    Перейти на вкладку «Файл».

В левой части окна нажать на раздел «Настроить ленту». В «Основных вкладках» поставить галочку у пункта «Разработчик». Кликнуть на кнопку «ОК».

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

Нажать на нужную ячейку листа. Появится пустой квадрат. Его размеры меняются обычным перетаскиванием границ. Нажать на квадрат правой кнопкой мыши и перейти в «Свойства».

В строке «PLACEMENT» по умолчанию стоит значение «2». Этот параметр необходимо изменить на число «1».

В параметре «PICTURE» нажать на квадрат с многоточием.

Появится окно вставки картинки. В Проводнике выбрать фотографию и нажать на кнопку «Открыть».

Осталось привязать изображение к ячейке. Чтобы это сделать, нужно выбрать изображение ЛКМ, перейти во вкладку «Разметка страницы», где в команде «Выровнять» блока «Упорядочение» выбрать команду «Привязать к сетке», а затем задать нужный размер картинки, перетаскивая её за край.

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

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

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

Сама по себе задача вставки картинки на листе не сложная и ответ лежит на поверхности: это доступно прямо из меню: Вставка (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(.Width / oShp.Width, .Height / oShp.Height) oShp.Height = oShp.Height * zoom — 2 ‘переименовываем вставленную картинку(чтобы потом можно было заменить) oShp.Name = sSpName End With End Sub

Чтобы использовать код необходимо создать в книге стандартный модуль(переходим в редактор 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(.Width / oShp.Width, .Height / oShp.Height) oShp.Height = oShp.Height * zoom — 2 ‘переименовываем вставленную картинку(чтобы потом можно было заменить) oShp.Name = sSpName End With End Sub

Теперь переходим на лист, где в А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(.Width / oShp.Width, .Height / oShp.Height) oShp.Height = oShp.Height * zoom — 2 ‘переименовываем вставленную картинку(чтобы потом можно было заменить) oShp.Name = sSpName End With End If Next End Sub

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

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

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

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

Поиск по меткам

Поделитесь своим мнением

Комментарии, не имеющие отношения к комментируемой статье, могут быть удалены без уведомления и объяснения причин. Если есть вопрос по личной проблеме — добро пожаловать на Форум

Импорт и экспорт картинок в Excel

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

Добавить или скачать картинки в Эксель можно штатными средствами редактора

Вставка фото или рисунка

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

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

Сохранение картинки, фото и т. д.

Итак, мы разобрались, как можно копировать рисунок и вставить его в документ, а кроме этого, выяснили, где и каким именно изменениям можно его подвергнуть. Однако иногда встаёт вопрос, как же «вытянуть» или сохранить изображения, которые размещены в скачанном с интернета документе формата Excel? Существует несколько вариантов.

  1. Сохраните документ в формате интернет-страницы, то есть html. Выберите пункт «Меню», а там «Сохранить как». В выпадающем списке пункта «Типа файла» выберите веб-страница. Там их несколько и вы можете выбрать любую. Перейдите в ту директорию, где был сохранен ваш документ и откройте его с помощью браузера. В нём вы увидите сам текст и все изображения, которые будет легко скачать просто кликнув на них правой кнопкой мыши и выбрав команду «Сохранить картинку как». Название самой команды может варьироваться, в зависимости от установленного браузера.
  2. Если изображение изначально имеет хорошее разрешение и качество, вы можете растянуть его, скопировать, используя комбинацию клавиш «Ctrl+C», а затем открыть стандартную программу Paint и вставить. Затем сохраняем и получаем файл в формате PNG.
  3. Кроме вышеуказанных простых операций, популярность программы Excel обеспечила её дополнительным софтом, который предназначен для решения разнообразных специфических и конкретных задач. Именно с этой целью была создана надстройка именуемая PastePictures. Благодаря ей, программа производит поиск картинок в указанной папке, основываясь на содержимом ячеек таблицы, а затем вставляет их в соседние ячейки или примечания к ним. Помимо этого, её функциональность позволяет скачивать изображения по ссылкам и сохранять их в конкретные папки, а затем вставлять в примечания к ячейкам. Скачав надстройку и открыв её, вам будет предоставлена возможность тестового прогона, во время которого вы увидите её основные возможности на примере специально созданного документа, куда затем будут добавлены картинки и изменён формат таблицы. Кроме этого, в ней есть множество других параметров, которые позволят вам с удобством работать над таблицами, вставлять и сохранять изображения. Выше был описан процесс вставки картинок в документ. Чтобы сохранить их, выберите установленную надстройку и в левом верхнем углу кликните на команду «Изображения». В ней вы увидите пункт «Сохранить картинки с листа в файлы», благодаря которому вы и перенесёте изображения в память вашего компьютера. Скачать надстройку можно, перейдя по этой ссылке – http://excelvba.ru/programmes/PastePictures.

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

Ссылка на основную публикацию
ВсеИнструменты 220 Вольт
Adblock
detector
×
×