Tw-city.info

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

Как вставить картинку в таблицу excel

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

Добрый день!

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Сама по себе задача вставки картинки на листе не сложная и ответ лежит на поверхности: это доступно прямо из меню: Вставка (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

Читать еще:  Как установить высоту ячеек в 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(.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

Читать еще:  Как изменить высоту столбца в excel

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

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

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

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

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

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

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

Надстройка для вставки картинок (изображений) в Excel

Надстройка PastePictures для MS Excel: общие сведения

Предназначение программы: вставка изображений в таблицу Excel, поиск картинок в папке или в Google, экспорт картинок из таблицы в папку.

Основные функции программы:

  • вставка фото из папки (поиск по имени файла)
  • вставка картинок по ссылкам из таблицы
  • поиск изображений в гугл по данным с листа Excel
  • экспорт изображений с листа в файлы
  • сжатие изображений перед вставкой (получается файл минимального размера)
  • поиск картинок в подпапках (глубина поиска по подпапкам не ограничена)
  • добавление гиперссылок к вставляемым изображениям
  • 3 варианта поиска файлов в папке (по точному совпадению имени файла и значения ячейки, или по частичному вхожению)
  • 2 режима вставки картинок — подгонка размеров под ячейку, или соблюдение пропорций исходного изображения
  • возможность вставки изображений в примечания к ячейкам
  • поиск недостающих фотографий товара в Google (в т.ч. поиск по заданным сайтам)
  • режим вставки изображений сразу в несколько столбцов
  • экспорт полноразмерных изображений (в каком виде они хранятся внутри файла Excel)

Подробнее — в разделе Справка по программе

На видео рассказывается о работе с программой, и показан процесс её настройки:

Подробные инструкции и описание функционала также можно найти в разделе Справка по программе

Видеоинструкция по дополнительным возможностям

На видео рассказывается о возможностях поиска изображений в Google:

Подробные инструкции и описание функционала также можно найти в разделе Справка по программе

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

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

Принцип работы с программой:

  1. Скачиваем файл программы (по ссылке выше), и сохраняем его куда-нибудь себе на диск. (например, на Рабочий Стол)
  2. Запускаем файл надстройки PastePictures.xla(как любой другой файл Excel — двойным щелчком)
  3. Открываем файл с названиями картинок (пример файла вы увидите при тестировании программы)
  4. На панели инструментов программы нажимаем кнопку «Настройки», выставляем нужные параметры
    • На форме настроек выбираем путь к папке, содержащей картинки (изображения)
    • Выставляем необходимые размеры для ячеек с картинками, выбираем первую ячейку на листе с именем файла
    • Указываем номер столбца, в который будут помещены изображения
    • и т.д. и т.п. — настроек там много разных, но разобраться в них совсем не сложно
  5. Нажимаем в меню «Изображения» — «Вставить картинки из папки», и через несколько секунд получаем результат.
  6. Если в исходной таблице — не имена файлов, а ссылки (URL) на картинки в интернете, то используем для запуска пункт меню «Изображения» — «Вставить картинки по ссылкам».

Как скачать и протестировать программу

Для загрузки надстройки PastePictures воспользуйтесь кнопкой Скачать программу

Если не удаётся скачать надстройку, читайте инструкцию про антивирус

Если скачали файл, но он не запускается, читайте почему не появляется панель инструментов

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

Этого вполне достаточно, чтобы всё настроить и проверить, используя раздел Справка по программе

Если вам понравится, как работает программа, вы можете Купить лицензию

Лицензия (для постоянного использования) стоит 1500 рублей .

В эту стоимость входит активация на 2 компьютера (вы сможете пользоваться программой и на работе, и дома).
Если нужны будут дополнительные активации, их можно будет в любой момент приобрести по 500 рублей за каждый дополнительный компьютер.

Microsoft Excel

трюки • приёмы • решения

Как в ячейку таблицы Excel 2013 вставить картинку?

Иногда, кроме изученного нами обрамления ячеек, может потребоваться дополнительное графическое оформление табличек. Например, на рис. 2.7 добавлена диагональная линия в ячейке А1. Как же добавляются графические элементы?

Рис. 2.7. Таблица с диагональной линией в ячейке

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

Рис. 2.8. Размещение фигуры на листе

Аналогично рисуются и линии: установите указатель мыши в то место, где будет начало линии, нажмите левую кнопку мыши и, не отпуская ее, переместите указатель мыши туда, где должен оказаться конец линии. После того как фигура появилась на своем месте, вы можете изменить ее размеры, а также повернуть ее. Если щелкнуть мышью на любой из линий фигуры, вокруг нее появится прямоугольная рамочка с квадратиками по сторонам и по углам — это так называемые маркеры изменения размера (рис. 2.9). При наведении указателя мыши на маркер указатель принимает вид стрелки, показывающей направление, в которое можно перетащить маркер и тем самым изменить размер фигуры. Если вы решили купить диплом, то этот прием будет полезен для редактирования документа.

Читать еще:  Зафиксировать строку в excel 2003

Рис. 2.9. Вращение фигуры

Кроме того, в верхней части прямоугольной рамки есть кружочек — это маркер поворота. Если перетаскивать его мышью, как показано на рис. 2.9, можно произвольно вращать изображение. Фигуру можно перетаскивать в любое место листа. Для этого наведите на нее указатель мыши, нажмите левую кнопку мыши и, не отпуская ее, переместите указатель мыши в то место, куда вы хотите поместить фигуру. Удалить ненужную фигуру можно, щелкнув на ней (так, чтобы вокруг нее появилась рамочка) и нажав клавишу Delete (Del).

Рис. 2.10. Форматирование фигуры

Можно поменять цвет линий фигуры, цвет заливки, а также стиль отображения (готовый набор сочетаний цветов). Для этого щелкните на любой линии фигуры правой кнопкой мыши и в появившемся контекстном меню выберите
команду Стиль, Заливка или Контур (рис. 2.10).

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

Рис. 2.11. Выбор типа линий контура

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

Для поиска нужной картинки введите слово, характеризующее изображение. Например, на рис. 2.12 введено слово «кошка». Если после ввода слова нажать клавишу Enter или щелкнуть мышью на кнопке Поиск, начнется поиск изображений. Обратите внимание, что все найденные рисунки могут не поместиться на экране. Увидеть другие рисунки можно с помощью полосы прокрутки (кнопки со стрелками и бегунком между ними, расположенные справа от картинок).

Рис. 2.12. Поиск картинок в Интернете

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

Рис. 2.13. Вставка рисунка из Интернета

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

Рис. 2.14. Добавление рамки

Обратите внимание, что после щелчка мышью на рисунке на ленте появляется вкладка Формат. Если вы перейдете на эту вкладку, то увидите разнообразные инструменты для корректировки изображения (рис. 2.15).

Рис. 2.15. Инструменты корректировки изображения

Картинка в примечании к ячейке

Хотите использовать фотографию или рисунок в качестве примечания к ячейке? Например, вот так:

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

Способ 1. Одиночная вставка

  1. Щелкните по ячейке, в которую будем вставлять примечание правой кнопкой мыши и выберите в контекстном меню Добавить примечание(Add comment) .
  2. Чтобы примечание во время настройки постоянно не пропадало, щелкните по ячейке правой кнопкой мыши и выберите команду Отобразить/Скрыть примечание (Show/Hide Comment) .
  3. Щелкните правой кнопкой мыши по штрихованной рамке вокруг примечания (штриховка при этом должна превратиться в точки) и выберите в контекстном меню команду Формат примечания (Format Comment) .
  4. В открывшемся окне перейдите на вкладку Цвета и линии (Colors and Lines) и из раскрывающегося списка Цвет (Color) выберите опцию Способы заливки (Fill Effects) :

  • В появившемся окне перейдите на вкладку Рисунок (Picture) и, щелкнув по кнопке Рисунок (Select Picture) , выберите нужный файл с изображением. Дополнительно можно установить флажок Сохранять пропорции рисунка (Lock picture aspect ratio) .
  • Жмем ОК во всех окнах и, возможно, немного подгоняем размеры примечания, чтобы картинку было хорошо видно.
  • Способ 2. Вставка оптом

    Как видно из первого способа, вставка одной картинки в одно примечание — процедура хоть и не сложная технически, но не очень-то быстрая. Поэтому для вставки картинок в массовых масштабах (например, изображений товаров в прайс) лучше использовать простой макрос. В качестве исходных данных примем, что у нас есть:

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

    Выглядит все это, допустим, так:

    Откройте редактор Visual Basic (сочетание клавиш Alt+F11), вставьте новый пустой модуль (меню Insert — Module) и скопируйте туда текст этого макроса:

    Диапазоны rngPics и rngOut можно, естественно, заменить на свои.

    Теперь осталось открыть окно управления макросами (Alt+F8) и запустить наш созданный макрос кнопкой Выполнить (Run) . Результат будет примерно такой:

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