Картинки с помощью excel

Уже несколько лет в Google Sheets существует функция IMAGE, позволяющая вставлять в ячейки листа картинки по ссылке из интернета. Что, впрочем, вполне естественно, поскольку Google-таблицы изначально заточены под работу онлайн — им сам бог велел такую возможность использовать.

У Excel же ничего подобного долго не было. И вот, наконец, осенью 2022 года Microsoft начала среди добровольцев-тестировщиков из программы Office Insider обкатку своего аналога —  новой функции ИЗОБРАЖЕНИЕ (IMAGE), также позволяющей вставлять по веб-ссылке картинки из интернета прямо в ячейки листа Microsoft Excel. В начале 2023 года эту функцию уже стали потихонечку разливать с обновлениями подписчикам Office 365 и недавно она, наконец, добралась и до меня. А значит я могу вам о ней рассказать на нескольких практических примерах.

Если же последней версии Office у вас пока (или уже) не предвидится, то не расстраивайтесь — в конце этой статьи я покажу как при помощи короткого макроса можно сделать упрощённый аналог этой функции уже сегодня.

Синтаксис функции ИЗОБРАЖЕНИЕ (IMAGE)

Тут всё предельно просто:

=ИЗОБРАЖЕНИЕ(источник; [замещающий_текст]; [изменение_размера]; [высота]; [ширина])

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

Третий аргумент отвечает за размеры и пропорции изображения и может принимать значения:

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

Большим преимуществом новой функции является то, что картинка будет не просто вставлена на лист, а именно вписана в конкретную ячейку, т.е. будет вместе с ней двигаться, сжиматься и растягиваться. Это принципиально отличается от классической вставки картинок командой Вставка — Рисунки (Insert — Pictures), когда изображение и лист находились, по сути, в разных слоях и вы могли запросто случайно сдвинуть или даже удалить картинку после вставки. Здесь же всё чётко.

Также если щёлкнуть по вставленному функцией изображению правой кнопкой мыши и выбрать команду Показать сведения об изображении (Show image properties), то во всплывающем окне можно будет увидеть картинку в оригинальном разрешении.

Теперь давайте рассмотрим несколько вкусных примеров использования новой функции ИЗОБРАЖЕНИЕ на практике.

Пример 1. Создание штрих-кодов и QR-кодов

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

Идём на сайт австрийской компании TEC-IT, где можно легко создать штрих-код любого стандарта с заданным содержимым:

Ссылка, по которой формируется изображение штрих-кода висит на кнопке Download и выглядит так:

_ttps://barcode.tec-it.com/en/Тип_штрихкода?data=Наше_содержимое_кода

Например, для распространенного типа Code-128, который кодирует строку «ABC-abc-1234» ссылка будет выглядеть как:

_ttps://barcode.tec-it.com/en/Code128?data=ABC-abc-1234

Так что просто подклеиваем справа от последнего знака «равно» наши артикулы, заворачиваем всё в функцию ИЗОБРАЖЕНИЕ и получаем автоматизированное создание штрих-кодов для любого количества товаров:

Красота.

Если нужен не линейный, а квадратный QR-код, то можно использовать другой бесплатный сайт — QR Code Generator:

Здесь ссылка для формирования QR-кода выглядит следующим образом:

ttps://api.qrserver.com/v1/create-qr-code/?data=Наши_данные&size=100×100

Опять же, подставляем туда адреса ячеек с исходными данными и получаем возможность массово клепать QR-коды в любом количестве:

Пример 2. Логотипы компаний

Ещё одна любопытная возможность — это автоматизированная загрузка логотипов известных компаний с помощью веб-сервиса https://logo.clearbit.com. Идея та же — подклеиваем адрес сайта нужной нам компании в конец ссылки — и получаем от сервиса изображение логотипа заданной компании, которое выводит на лист наша функция ИЗОБРАЖЕНИЕ:

Можно использовать в дашбордах по анализу рынка, для визуализации инвестиционного портфеля, в прайс-листах и т.д. — у кого на сколько фантазии хватит.

Пример 3. Нестандартные диаграммы

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

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

ttps://quickchart.io/chart?c={type:’radialGauge’,data:{datasets:[{data:[Значение_параметра],backgroundColor:’green’}]}}

И визуализировать её затем с помощью нашей новой функции ИЗОБРАЖЕНИЕ (IMAGE):

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

Здесь ссылка чуть похитрее, т.к. в неё уже зашиты размеры трёх диапазонов шкалы и их цвета, а также положение стрелки:

ttps://quickchart.io/chart?c={ type: ‘gauge’, data: { datasets: [ { data: [10, 40, 60], value: Позиция_стрелки, backgroundColor: [‘green’, ‘gold’, ‘lightcoral’] } ] } } 

Названия цветов для заливки сегментов диаграммы можно взять из справочника.

Пример 4. Скриншоты сайтов

Если вы работаете с интернет-ресурсами или в области SEO-SMM, то вам пригодится возможность быстро формировать скриншоты заданных веб-страниц и вставлять их на лист Excel в виде изображений. Это можно сделать с помощью веб-сервиса https://mini.s-shot.ru, добавив к его адресу ссылку на интересующую страницу.

Подставляем её в нашу функцию ИЗОБРАЖЕНИЕ и получаем:

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

Пример 5. Географические карты

Опять же, вставлять на лист интерактивные географические карты Excel уже давно умеет (через Вставка — Карты Bing, например), но можно это сделать и с помощью новой функции ИЗОБРАЖЕНИЕ, если найти веб-сервис, который по заданным координатам или названию населенного пункта будет формировать для нас скриншот карты в нужном месте. Обычно такие сервисы платные и используют API — специальный механизм запросов для общения с ними. 

Например, на одном из таких сайтов Geoapify.com ссылка для получения нужного фрагмента карты случае формируется из:

• долготы (longtitude)
• широты (latitude)
• коэффициента масштаба (zoom)
• ключа API — длинного буквенно-цифрового кода, который вы получаете в личном кабинете в качестве вашего личного идентификатора:

Обратите внимание, что в качестве разделителя между целой и дробной частью должна быть использована точка, поэтому дополнительно придётся использовать функцию ПОДСТАВИТЬ (SUBSTITUTE), чтобы её подменить.

Аналог функции IMAGE на VBA

Если приведенные выше примеры вас заинтриговали, но последней версии Excel у вас пока нет, то можно относительно легко склепать на коленке упрощенный аналог этой функции на Visual Basic. Только вставлять картинки он будет не по ссылке из интернета, а по пути к файлу с жесткого диска вашего ПК (что в некоторых случаях может быть даже предпочтительнее — интернет у нас не везде бывает).

Откройте редактор макросов сочетанием клавиш Alt+F11 или кнопкой Visual Basic на вкладке Разработчик (Developer). Вставьте новый пустой модуль командой меню Insert — Module и скопируйте туда текст следующего макроса:

Sub InsertPictures()
    Dim pic As Shape
    Dim cell as Range, imageCell as Range
    
    'проходим по выделенным непустым ячейкам
    For Each cell In Selection
        If Not IsEmpty(cell) Then
            Set imageCell = cell.Offset(0, 1)       'определяем ячейку справа для вставки картинки
        
            'вставляем картинку
            Set pic = ActiveSheet.Shapes.AddPicture(cell.Value, False, True, imageCell.Left, imageCell.Top, -1, -1)
                
            pic.LockAspectRatio = True              'фиксируем соотношение сторон
            pic.Height = imageCell.Height           'подгоняем по высоте под ячейку
        End If
    Next cell

End Sub

Теперь останется ввести в ячейки листа пути к файлам картинок, а затем выделить эти ячейки и запустить наш макрос командой Разработчик — Макросы (Developer — Macros) или сочетанием клавиш Alt+F8. Макрос пробежит по всем выделенным ячейкам и вставит в каждую картинку из указанного файла, вписав её в по размерам в каждую ячейку.

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

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

Ссылки по теме

• Выпадающий список с показом изображений
• Картинка в примечании к ячейке
• Создание печатной подложки в Excel

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

​Смотрите также​ перечитал огромное количество​Russel​PS. в вашем​Есть необходимость визуально​ которых мы и​ строку формул​выбираем​ У нас, в​

​ «Вставить связь с​ автоматически».​

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

​ получения дополнительных сведений​ или диаграммы. Также​Появляется элемент ActiveX в​«Цвет»​, расположенную в нижнем​ целей, для которых​Некоторые задачи, выполняемые в​ всяких статей и​: Ощущение, что я​ файле картинка перед​ показывать размер объекта.​ хотим добавить примечания​=​Список (List)​ примере, это диапазон​

​ рисунком».​​Ставим курсор в​ обратитесь к разделу​

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

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

1. ​ форумов по этим​ что-то упускаю в​ изменением размеров была​ Объект является прямоугольной​​список путей к файлам​​Фото​​, а в качестве​​ «Изображение».​Вставился рисунок и в​​ ячейку А1. Заходим​​формат рисунков​

   

2. ​ скопированные из другой​ Регулируем его размеры​ переходим по записи​Выделяем весь лист, нажатием​​Но в большинстве случаев​​ в них различных​ пунктам/DPI/PPI/пикселям/дюймам. Вроде все​ своих рассуждениях…. НО!​ Н=351, W=270,75 Возможно,​ картинкой, размеры рассчитываются​ изображений этих товаров​и нажать Enter​Источника (Source)​Нажимаем «Enter».​ строке формул появилась​ на закладке «Формулы»​в вставлять изображения.​ программы. Эти данные​ перетаскиванием границ и​«Способы заливки…»​ сочетания клавиш​ нет необходимости открывать​​ изображений или фото.​​ ясно и фактически​

​ Я сейчас поменял​ на вашем мониторе​ в таблице в​ (его можно, кстати,​Все! :)​указываем наш​Этими способами можно​ формула адреса рисунка,​

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

​ в раздел «Определенные​В другой программе (например,​ вставляются в Microsoft​

1. ​ помещаем в ячейку,​.​Ctrl+A​ окно​ Программа Excel имеет​​ реальный размер получается​​ разрешения на своем​

   

2. ​ размеры определит другие.​ сантиметрах (выделил красным).​ формировать тоже автоматически​Создание выпадающего списка в​Фотоальбом​ вставить фотографии товара​ мы меняем эту​ имена» и выбираем​ в Word) воспользуйтесь​ Office Excel в​ где планируется разместить​Открывается окно способов заливки.​

   

3. ​, и переходим через​«Размеры и свойства»​ инструменты, которые позволяют​​ перемножением размера пикселя​​ компе на отличные​ Надо проверить.​Можно как-то привязать​ с помощью вот​ ячейках листа​​(не забудьте перед​​ в прайс-листе, фотографии​

   

4. ​ формулу на свою.​ функцию «Присвоить имя».​ кнопкой​ виде рисунка.​ изображение. Кликаем правой​ Переходим во вкладку​ контекстное меню в​, так как вполне​ произвести подобную вставку.​ матрицы на количество​
   • ​ от разрешения по​
   • ​svobodniy​
   • ​ размер картинки к​​ такого макроса).​​Создание зависимых выпадающих списков​
   • ​ ним добавить знак​ сотрудников, т.д. Как​

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

​Мы написали такую формулу.​ В появившемся диалоговом​Копировать​Чтобы удалить линии сетки,​ кнопкой мыши по​«Рисунок»​ окно настроек формата​ хватает инструментов, которые​ Давайте разберемся, как​ пикселей… Но Экселю​ умолчанию, а картинка​: Я могу пересчитать​ рассчитанным размерам? Или​Выглядит все это, допустим,​Автоматическое создание выпадающих списков​ равенства):​ это сделать, читайте​ =Изображение (указали имя​ окне пишем имя​

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

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

1. ​ ячеек.​ предлагаются на ленте​ это сделать.​ никак не объяснить​ свой размер не​

   

2. ​ дюймы в пиксели​ может как-то вписать​ так:​​ при помощи инструментов​​Кроме того этой ячейке​

   

3. ​ в статье «Как​ нашего диапазона с​​ нашего диапазона. Мы​​ которые требуется вставить​ присутствовать на рисунке,​ меню выбираем пункт​ на кнопку с​Во вкладке​​ в дополнительном блоке​​Скачать последнюю версию​​ это… Что-то с​​ меняет — 9,55​ зная диагональ и​ картинку в ячейку​Откройте редактор Visual Basic​ надстройки PLEX​

   

4. ​ удобно дать имя​​ сделать прайс-лист в​​ картинками на Листе2).​ назвали диапазон -​ в Excel в​​ выполните указанные ниже​​«Свойства»​​ одноименным наименованием.​​«Защита»​ вкладок​ Excel​​ Экселем все очень​​ см по ширине​​ разрешение монитора, что​ и привязать размеры​​ (сочетание клавиш​Выпадающий список с автоматическим​ — снова меню​​ Excel».​​Всё. Выпадающий список с​ «Название». Если это​

   

5. ​ качестве рисунка.​ действия.​​.​​Открывается окно добавления изображения,​открывшегося окна снимаем​«Работа с рисунками»​Для того, чтобы вставить​

   

6. ​ сложно…​​ (мерил линейкой).​​ в принципе в​ ячейки к рассчитанным​​Alt+F11​​ удалением уже использованных​Вставка — Имя -​​Какими способами закрепить​​ картинками готов. Меняем​

   

7. ​ товар, то можно​В Excel щелкните в​На вкладке​Открывается окно свойств элемента.​ точно такое же,​​ галочку с параметра​​.​ изображение в таблицу​​AlexM​​То есть, если​​ таблице и делается.​​ размерам? Я уж​

   

8. ​), вставьте новый пустой​​ элементов​​ Присвоить​​ картинку, фото в​​ слово в выпадающем​ назвать диапазон «Модель»​​ любом месте листа​​Файл​

   
9. ​ Напротив параметра​ как было описано​«Защищаемая ячейка»​Если мы хотим вставить​​ Эксель, оно сначала​​: Думаю алгоритм должен​ в экселе выбрать​ Если брать из​

​ не знаю как​ модуль (меню​Выпадающий список с автоматическим​и далее вводим​ ячейке в Excel,​ списке, и меняется​ (телефонов, автомобилей, платьев,​ или диаграммы, в​выберите команду​«Placement»​ выше. Выбираем рисунок​и жмем на​ изображение в ячейку,​ должно быть загружено​ быть такой​ размер объекта 10х10​ таблицы, то у​ это все возможно​Insert — Module​ добавлением недостающих элементов​ имя (например​ смотрите в статье​

​ картинка.​​ т.д.). В строке​ которое требуется вставить​

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

​Параметры​устанавливаем цифру​ и жмем на​

1. ​ кнопку​ то самым важным​ на жесткий диск​Определяем размер картинки​ см, масштаб листа​​ меня второй монитор​​AlexM​

   

2. ​) и скопируйте туда​Хотите использовать фотографию или​Выбор​ «Вставить картинку в​В разных версиях​ диалогового окна «Диапазон»​ скопированные данные как​.​​«1»​​ кнопку​

   

3. ​«OK»​ моментом при редактировании​ компьютера или подключенный​​ в пунктах кодом​​ 100%, то на​​ на 19 дюймов.​​: Пока ничего не​​ текст этого макроса:​​ рисунок в качестве​) и​​ ячейку в Excel».​​ Excel нужно по​

   

4. ​ пишем формулу динамического​ рисунок.​​В категории​​(по умолчанию​«Вставить»​.​

   

5. ​ картинки является изменение​ к нему съёмный​ из сообщения №4.​ (правильно настроенном) экране,​ Картинка в графическом​ понятно. Опишите задачу​​Sub InsertPicturesInComments() Dim​​ примечания к ячейке?​

   

6. ​ОК​​Необходимо сделать так, чтобы​​ разному вставлять картинки​ диапазона.​​На вкладке​​Дополнительно​​«2»​​.​

   
7. ​Выделяем ячейку, где находится​ её размеров, чтобы​​ носитель. Очень важной​​ Эти данные записываем​​ этот объект будет​​ редакторе 361*468 пикселей,​ подробнее.​​ rngPics As Range,​​ Например, вот так:​

   

8. ​.​​ в одной из​​ или фото с​=СМЕЩ(Лист2!$A1;1;0;СЧЁТЗ(Лист2!$A:$A)-1;1)​​Главная​в группе​​). В строке параметра​Изображение добавилось в окно​​ картинка, которую нужно​​ они не были​

​ особенностью вставки рисунка​ в переменную, которую​ отображаться с размерами​ я ее копирую​Картинки на диске,​ rngOut As Range​Это может быть удобно​Перенесем первую фотографию из​ ячеек листа был​ условием «как рисунок»,​Заполнили диалоговое окно​

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

​в группе​Показать параметры для следующего​«Picture»​«Способы заливки»​ закрепить. Открываем окно​ больше размеров самой​ является то, что​ не изменяем до​ 10х10 см.​ в Эксель -​

1. ​ их надо вставить​​ Dim i As​​ при создании списков​​ фотоальбома к выпадающему​​ выпадающий список с​

   

2. ​ чтобы была активной​ так.​​Буфер обмена​​ листа​жмем на кнопку,​​. Устанавливаем галочку напротив​​ формата и во​ ячейки. Изменить размер​ он по умолчанию​​ конца работы макроса.​​Давайте еще раз,​

   

3. ​ она такая же​ в Excel, определить​ Long, p As​​ людей с их​​ списку. Выделите ячейку​ наименованиями, при выборе​ строка формул, когда​Нажимаем «ОК».​​нажмите стрелку под​​снимите флажок​ на которой изображено​​ пункта​​ вкладке​​ можно следующими способами:​​ не привязывается к​

   

4. ​Масштаб окна программы​ что Вы хотите​ 361*468 пикселей. А​ размеры, пересчитать и​ String, w As​ фотографиями, прайс-листов с​ с первой фотографией​ из которого, товар​ нажимаем на этот​Третий этап.​​ кнопкой​​Показывать сетку​

   

5. ​ многоточие.​«Сохранять пропорции рисунка»​​«Защита»​​через контекстное меню;​​ конкретной ячейке, а​​ устанавливаем на 100%​​ получить?​​ вот когда применяю​​ по расчету изменить​​ Long, h As​ изображениями товаров и​ (не сам рисунок,​

   
6. ​ отображался бы рядом​ скопированный рисунок.​Теперь переходим на​Вставить​​.​​Открывается окно вставки изображения.​

   

7. ​. Жмем на кнопку​устанавливаем галочку около​панель на ленте;​ просто размещается в​200?’200px’:»+(this.scrollHeight+5)+’px’);»>ActiveWindow.Zoom = 100 ‘масштаб​AlexM​ макрос с размерами​ размер картинок, потом​​ Long Set rngPics​​ т.п.​​ а ячейку!) и​​ в виде фотографии:​Ещё один способ вставить​​ чистый лист (у​​и выберите пункт​На листе Excel или​​ Ищем нужную картинку,​​«OK»​ значения​

​окно​ выбранной области листа.​ окна 100%​: У меня такое​

​ 361*468, она становится​ сохранить?​ = Range(«B1:B5») ‘диапазон​Щелкните по ячейке, в​в Excel 2003 и​Создаем на​ фото в Excel​ нас – на​Специальная вставка​ на листе диаграммы​ выделяем её и​.​«Защищаемая ячейка»​«Размеры и свойства»​Урок:​Затем определяем iX​ же ощущение.​

​ раза в полтора​

lumpics.ru

Создание рисунка на основе ячеек, диаграммы и других объектов в Excel

​svobodniy​​ путей к картинкам​ которую будем вставлять​ старше — удерживая​Листе 1​ «как рисунок»​ Лист 3), где​.​ выделите ячейки, диаграмму​ жмем на кнопку​После этого возвращаемся в​. Кликаем по кнопке​;​Как вставить картинку в​ кодом из сообщения​Может как-то использовать​ больше…​: Картинка либо на​ Set rngOut =​ примечание правой кнопкой​ Shift, откройте меню​мы каталог с​

​.​ будем​В диалоговом окне​ или объект, которые​«Открыть»​ окно​«OK»​перетащив границы картинки с​ Microsoft Word​ №14 установленное разрешение​ данные по разрешению​svobodniy​

Копирование данных в виде рисунка в Excel

1. ​ диске, либо в​ Range(«A1:A5») ‘диапазон вывода​ мыши и выберите​Правка (Edit)​ наименованиями и фотографиями​

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

   2. ​«Формат примечания»​​.​​ помощью мышки.​​Сначала выясним, как вставить​ экрана. Устанавливаем размер​​ конкретного монитора? Разрешение​​: Методом научного тыка​​ самом документе -​

2. ​ примечаний rngOut.ClearComments ‘удаляем​ в контекстном меню​. Там должен появиться​ товаров, состоящий из​ можно разместить на​. Как сделать выпадающий​

3. ​выберите между​​ виде рисунка.​​После этого можно закрывать​​. Переходим во вкладку​​Во вкладке​Но, даже после того,​​ рисунок на лист,​​ картинки увеличенный/уменьшенный на​​ можно определить так​​ подобрал коэффициент 0,75.​ не важно.​​ старые примечания ‘проходим​​Добавить примечание​

   

4. ​ невидимый ранее пункт​​ двух столбцов (​​ панели быстрого доступа,​ список, смотрите в​

   1. ​Вставить как рисунок​На вкладке​​ окно свойств. Как​​«Защита»​

   2. ​«Рецензирование»​ как изображение стало​​ а уже потом​​ эмпирически полученный коэффициент​

   ​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Declare Function GetSystemMetrics​​ Т.е. реальный размер​Картинка всего одна.​​ в цикле по​​(Add comment)​​Копировать рисунок (Copy as​​Модель​ выбрав из списка​ статье «Выпадающий список​или​​Главная​​ видим, рисунок уже​​. Убираем галочку с​​в блоке инструментов​ меньше ячейки и​ разберемся, как прикрепить​ для каждого разрешения.​ _​ картинки составляет только​В таблице рассчитывается​ ячейкам For i​.​ Picture)​

5. ​и​​ «Другие команды». Как​​ в Excel». Ссылка​

6. ​Вставить рисунок в качестве​в группе​ вставлен. Теперь нам​ параметра​«Изменения»​

7. ​ было помещено в​​ картинку к конкретной​​Перед сохранением файла​​Lib «user32.dll» (ByVal​​ 75% от той,​​ размер картинки и​ ​ = 1 To​Чтобы примечание во время​

​:​Фото​ это сделать, читайте​ на статью выше.​ ссылки​​Буфер обмена​​ нужно полностью привязать​

Копирование данных из другой программы и их вставка в Excel в виде рисунка

1. ​«Защищаемый объект»​на ленте кликаем​ неё, все равно​​ ячейке.​​ возвращаем размер картинки​ nIndex As Long)​ которая получается в​ его надо применить​

2. ​ rngPics.Cells.Count p =​ настройки постоянно не​В Excel 2007 и​):​ в статье «Сводная​Поставили курсор в​

3. ​в зависимости от​​щелкните стрелку под​​ его к ячейке.​​.​​ по кнопке​ оно осталось неприкрепленным.​​Выделяем ту ячейку, куда​​ используя, сохраненные в​​ As Long​​ Экселе при выставлении​

4. ​ к данной картинке,​​ rngPics.Cells(i, 1).Value ‘считываем​​ пропадало, щелкните по​​ новее можно просто​​Теперь надо дать имя​​ таблица Excel из​ ячейку, где будет​​ того, как вы​ кнопкой​ Выделяем картинку и​Переходим во вкладку​«Защитить лист»​​ То есть, если​​ вы хотите вставить​​ начале, переменные.​​Sub Get_System_Metrics()​​ размеров по пикселям.​​ чтобы иметь визуальное​

5. ​ путь к файлу​​ ячейке правой кнопкой​​ развернуть выпадающий список​ нашему каталогу, чтобы​

​ нескольких таблиц».​ выпадающий список. Зашли​ хотите вставить рисунок,​Вставить​ переходим во вкладку​​«Свойства»​​.​

support.office.com

Раскрывающийся список в Excel с картинками.

​ мы, например, произведем​ изображение. Переходим во​svobodniy​Dim iX As​Теперь бы понять,​​ представление на мониторе.​ картинки w =​ мыши и выберите​​ под кнопкой​ ссылаться на него​Нажимаем на ЯЧЕЙКУ​ на закладке «Данные»​ а затем в​, выберите пункт​«Разметка страницы»​. Устанавливаем переключатель в​
​Открывается окошко, в котором​
​ сортировку или другой​
​ вкладку​:​ Long, iY As​ как все это​AlexM​ LoadPicture(p).Width ‘и ее​ команду​
​Копировать (Copy)​ в будущем. В​ с рисунком, нажимаем​ в раздел «Работа​
​ разделе​
​Как рисунок​​. В блоке настроек​​ позицию​ вводим желаемый пароль​ вид упорядочивания данных,​«Вставка»​AlexM​ Long​ связано и как​: Код в Module1​ размеры h =​Отобразить/Скрыть примечание (Show/Hide Comment)​
​на​ Excel 2003 и​ кнопку «Копировать как​ с данными» и​как​, а затем —​«Упорядочить»​«Перемещать и изменять объект​ для защиты листа.​ то ячейки поменяются​. Кликаем по кнопке​, в сообщении 4​iX = GetSystemMetrics(1&)​ отображать реальные размеры​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Macros()​ LoadPicture(p).Height With rngOut.Cells(i,​.​Главной (Home)​
​ старше для этого​
​ рисунок», заполняем диалоговое​ нажали на кнопку​
​выберите​
​ команду​
​на ленте жмем​ вместе с ячейками»​ Жмем на кнопку​ местами, а рисунок​«Рисунок»​​ нет никакого кода​​iY = GetSystemMetrics(0&)​ на других мониторах,​Dim sha As​ 1) .AddComment.Text Text:=»»​Щелкните правой кнопкой мыши​
​вкладке:​ идем в меню​ окно так.​ функции «Проверка данных»,​рисунок (расширенный метафайл)​Копировать как рисунок​ на кнопку​. Вслед за этим​«OK»​ останется все на​, которая размещена в​​ для определения размеров​End Sub​ зная физический размер​ Shape​ ‘создаем примечание без​​ по штрихованной рамке​В Excel 2010 появится​Вставка — Имя -​«Вид» — у нас​ выбрали тип данных​и нажмите​.​«Выровнять»​ жмем на кнопку​, а в следующем​ том же месте​ блоке настроек​
​ в пунктах. Там​Если код вставить​ пикселя матрицы (в​
​For Each sha​
​ текста .Comment.Visible =​
​ вокруг примечания (штриховка​​ еще одно дополнительное​ Присвоить (Insert -​ стоит «как на​​ — «Список». Диалоговое​кнопку ОК​В диалоговом окне​. Из выпадающего меню​«OK»​ открывшемся окне снова​ листа. Но, в​«Иллюстрации»​ только применение размера.​ в модуль «Эта​ мм).​ In ActiveSheet.Shapes​ True .Comment.Shape.Select True​ при этом должна​ окно с выбором​ Name — Define),​ экране». А «формат»​ окно заполнили так.​.​
​Копировать рисунок​ выбираем пункт​.​ повторяем введенный пароль.​ Excel все-таки существуют​.​Разрешение и размеры​ книга» на событие​AlexM​
​iName = sha.Name​ End With With​ превратиться в точки)​ типа создаваемого изображения:​а в Excel​​ поставим — «растровый».​В строке «Источник» указали​На вкладке «​выполните указанные ниже​​«Привязать к сетке»​После выполнения всех вышеперечисленных​После этих действий диапазоны,​ некоторые способы прикрепления​Открывается окно вставки рисунка.​

​ своего экрана можно​ Workbook_Open, то можно​: В макросе размеры​ ‘имя картинки​ rngOut.Cells(i, 1).Comment.Shape ‘заливаем​ и выберите в​В нем нужно выбрать​ 2007 и новее​ Нажимаем «ОК». Мы​
​ имя нашего диапазона​Формат​ действия.​​. Затем чуть-чуть двигаем​
​ действий, изображение не​ в которых находятся​ картинки. Рассмотрим их​ По умолчанию оно​ задать вручную.​ использовать полученные данные​ определяются в пунктах​iHeight = sha.Height​ картинкой .Fill.UserPicture p​
​ контекстном меню команду​ варианты «как на​ — жмем на​ скопировали ЯЧЕЙКУ с​ «Название». Нажимаем «ОК».​​» внесите необходимые​Выберите нужный параметр в​ за край рисунка.​ только будет вставлено​ изображения, защищены от​ далее.​ всегда открывается в​Вопрос только в​ для масштабирования или​Размер пикселя зависит​ ‘Высота картинки в​ .ScaleWidth 1, msoFalse,​
​Формат примечания (Format Comment)​ экране» и «растровый».​ кнопку​​ картинкой. Переходим на​ Получился такой выпадающий​
​ изменения.​ группе​После выполнения вышеперечисленных действий​ в примечание ячейки,​ изменений, то есть,​Одним из способов прикрепить​ папке​ пересчете на пункты.​ как-то по другому.​ от разрешения монитора,​ px​ msoScaleFromTopLeft .ScaleHeight h​.​Копируем, переходим на​Диспетчер имен (Name Manager)​ лист с выпадающим​ список.​Кроме того при необходимости​​Вид​ картинка будет привязано​ но и привязано​ картинки к ним​ изображение является применение​«Изображения»​ Я вчера часа​Russel​ поэтому он переменный.​iWidth = sha.Width​ / w *​В открывшемся окне перейдите​Лист 2​на вкладке​ списком. И вставляем​Сделаем еще один диапазон​​ можно изменить на​.​ к сетке и​ к ней. Конечно,​ привязаны. В этих​ защиты листа от​. Поэтому вы можете​
​ 4 сидел выдумывал​
​: Я кажется понял,​1дюйм=72,27 пункта(points)=2,54см​ ‘Ширина картинки в​ 1.8, msoFalse, msoScaleFromTopLeft​ на вкладку​к выпадающему списку​Формулы (Formulas)​ рисунок в ячейку​
​ столбца В на​ этом рисунке. Для​Выберите нужный параметр в​ выбранной ячейке.​ данный способ подходит​ ячейках нельзя будет​

excel-office.ru

Выбор фото из выпадающего списка

Постановка задачи

​ изменений.​ предварительно перебросить в​ форумы начитавшись всяких​ что имеет в​1 пункт=1/72 дюйма=0,35​ px​ ‘корректируем размеры End​Цвета и линии (Colors​

Видео

Шаг 1. Создаем каталог с фото и даем ему имя

​ и в любую​​. Создаем диапазон -​​ В2 (правой мышкой​ Листе 2 нашей​ получения дополнительных сведений​ группе​​Как видим, в программе​​ не всем, так​​ производить никаких изменений​​Подгоняем размер рисунка под​

​ неё ту картинку,​ ФАКов и форумов.​ виду автор.​ мм​sha.Height = 468​ With Next i​ and Lines)​​ пустую ячейку недалеко​ вводим имя (например​ – вставить).​​ таблицы с рисунками​ обратитесь к разделу​Формат​ Эксель имеется несколько​​ как вставка в​​ до снятия защиты.​​ размер ячейки и​​ которую собираетесь вставить.​ Не получается соотнести​​Одна и та​​1мм=2,835 пункта​ ‘Изменить высоту​

​ End Sub​

​и из раскрывающегося​

​ от него вставляем​Фотоальбом​И ещё один способ​ для того, чтобы​формат рисунков​.​ способов вставить изображение​ примечание налагает некоторые​ В других диапазонах​ вставляем его туда,​ А можно поступить​ пиксели и пункты.​ же картинка (размерами,​Russel​sha.Width = 361​Диапазоны rngPics и rngOut​ списка​ наш мини-скриншот ячейки​

Шаг 2. Выпадающий список для выбора модели

​) и в качестве​​ вставить картинку в​​ привязать конкретную картинку​в вставлять изображения.​Совет:​ в ячейку и​ ограничения.​ листа, как и​ как было рассказано​ другим путем: через​​ Что-то это магические​ пусть будет, 100*100​​: Почитайте статью, мне​ ‘Изменить ширину​ можно, естественно, заменить​​Цвет (Color)​ с фотографией (меню​ адреса указываем формулу:​​ Excel​​ к конкретному слову​​Как сделать раскрывающийся​​ Для достижения наилучшего качества​​ привязать его к​​Привязать изображения к ячейке​​ прежде, можно делать​​ выше.​​ интерфейс этого же​ какие-то размерности…​ px) на разных​

​ кажется она о​Next​ на свои.​​выберите опцию​Правка — Вставить​​=СМЕЩ(Лист1!$A$1;1;0;СЧЁТЗ(Лист1!$A:$A)-1;1)​, чтобы строка формул​​ в выпадающем списке.​​ список со словами,​​ рисунка задайте параметры​​ ней. Конечно, способ​

Шаг 3. Копируем фотографию

​ можно также через​ любые изменения и​Кликаем по изображению и​ окна перейти в​П.С. Ладно. Финт​ мониторах​

​ Вашем вопросе.​End Sub​Теперь осталось открыть окно​​Способы заливки (Fill Effects)​​или обычное​=OFFSET(Лист1!$A$1;1;0;COUNTA(Лист1!$A:$A)-1;1)​​ была активной.​ На закладке «Формулы»​​ смотрим в статье​

​Как на экране​ со вставкой в​ режим разработчика. Проблема​ сохранять их. В​​ в контекстном меню​​ любую другую директорию​​ ушами не выходит.​​не в excel’e​

​svobodniy​Вместо фиксированных значений​ управления макросами (​:​

​CTRL+V​Эта формула определяет последнюю​Делаем активной ячейку​

​ выбираем функцию «Присвоить​​ «Выпадайщий список в​​и​ примечание подойдет далеко​ состоит в том,​ то же время,​ выбираем пункт​ жесткого диска ПК​​ Будем подгонять ручками​​будет иметь разные​​: Ну вот из​​ размера в коде,​

Шаг 4. Создаем динамическую ссылку на выбранную фотографию

​Alt+F8​В появившемся окне перейдите​).​ занятую ячейку в​ у выпадающего списка,​​ имя». Выбираем тип​ Excel». Здесь рассмотрим,​Векторный​​ не всем пользователям.​​ что по умолчанию​​ теперь даже если​​«Размер и свойства»​​ или подключенного к​ по линейке. Вся​

​ размеры в см,​ этого файла размеры​​ можно брать его​​) и запустить наш​

​ на вкладку​

​Теперь необходимо сделать ссылку,​

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

Шаг 5. Привязываем фотографию к ссылке

​ на мониторе получаются​ из ячеек.​​ созданный макрос кнопкой​​Рисунок (Picture)​ которая будет указывать​

​ выдает на выходе​​ показываться наши картинки.​

​Пишем имя диапазона. В​

​ в Excel с​

Ссылки по теме

• ​ качества рисунка элементы,​ остальных варианта довольно​
• ​ активирован. Так что,​
• ​ сортировку данных, то​Открывается окно свойств рисунка.​ того, как вы​
• ​ смарку​ хочет понять, как​ не верные…​
• ​svobodniy​Выполнить (Run)​

planetaexcel.ru

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

​и, щелкнув по​ на ячейку с​ диапазон с А2​ У нас, в​

​ строке «Диапазон» пишем​ картинками​ копируемые с использованием​ универсальны и каждый​ прежде всего, нам​ картинка уже никуда​

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

1. ​ Во вкладке​ произвели выбор картинки,​AlexM​ они будут смотреться.​Цитата​​: Хм. Картинка реагирует​ ​. Результат будет примерно​​ кнопке​
2. ​ выбранной фотографией. Открываем​ до этой найденной​ примере, это ячейка​ такую формулу.​. Выбираем из выпадающего​ параметров​​ сам должен определиться,​​ нужно будет включить​
3. ​ не денется с​«Размер»​ которую собираетесь добавить​: мы же далее​svobodniy​AlexM, 02.04.2014 в​ на заданные размеры.​​ такой:​​Рисунок (Select Picture)​
4. ​ меню​ ячейки. Такая относительно​​ В2 на Листе3.​=СМЕЩ(Лист2!$B$2;ПОИСКПОЗ(Лист3!$A$2;Название;0)-1;0;1;1) Нажимаем «ОК».​​ списка в Excel​Как на экране​​ какой из них​​ его.​​ той ячейки, в​​удостоверяемся, чтобы величина​
   
5. ​ в Эксель, жмите​ разобрались, что определяется​​: Именно!!!​​ 15:26, в сообщении​ Но почему-то отображается​​Красота!​​, выберите нужный файл​Вставка — Имя -​ сложная конструкция нужна,​​ Теперь в эту​Четвертый этап.​​ с картинками слово​
6. ​и​​ для него удобнее​​Находясь во вкладке​ которой находится.​ картинки была не​ на кнопку​ размер не px,​

Способ 2. Вставка оптом

​В приложенном вами​ № 9200?’200px’:»+(this.scrollHeight+5)+’px’);»>Размер пикселя​ просто громадной. Т.е.​Вставленные в примечания картинки​ с изображением. Дополнительно​ Присвоить (Insert -​ чтобы впоследствии дописывать​ ячейку вставляем новую​Нам нужно​ и, в соседней​Векторный​ и максимально соответствует​«Файл»​Урок:​ больше размера ячейки.​«Вставить»​

• ​ а в пунктах.​ файле ваш расчет​ зависит от разрешения​ не соответствует действительности…​
• ​ и фотографии будут​ можно установить флажок​ Name — Define)​ новые модели к​ любую картинку, НО​к словам из выпадающего​

​ ячейке, появляется соответствующая​, всегда вставляются с​

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

​ Как-то не ясно…​ неизбежно утяжелять файл.​Сохранять пропорции рисунка (Lock​или​ нашему списку и​ НЕ через «Вставка»​ списка Excel привязать​ картинка (например, модель,​ масштабом 100 % от​Автор: Максим Тютюшев​«Параметры»​ изменений в Excel​ напротив показателей​После этого рисунок вставляется​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Macros()​ моим (выделенным красным).​ переменный.​ какова зависимость между​ При большом количестве​ picture aspect ratio)​Диспетчер имен (Name Manager)​ не думать об​ -> «Рисунок». А​ картинки​ фото товара, сотрудника,​ исходных размеров. Например,​Примечание:​.​Также можно привязать рисунок,​«Относительно исходного размера»​ на лист. Но,​Dim sha As​ Вопрос остается, как​Это все ясно.​ пикселями/сантиметрами в Экселе​ изображений имеет смысл​.​на вкладке​

​ исправлении диапазона. Если​ делаем так. Заходим​. Для этого выделяем​

​ др.).​ при уменьшении листа​​Мы стараемся как​​В окне параметров перемещаемся​ вставив его в​​и​​ как и говорилось​ Shape​

​ сделать так, чтобы​

P.S.

• ​ Размер пикселя вычислить​ и реальными пикселями​ их заранее обработать​Жмем​Формулы (Formulas)​ дописывать точно ничего​ на закладке «Вставка»​ ЯЧЕЙКУ (НЕ рисунок)​Первый этап.​ до 75 % элемент,​ можно оперативнее обеспечивать​
• ​ в подраздел​ примечание.​«Сохранить пропорции»​​ ранее, он просто​For Each sha​ эксель показывал картинку​​ не сложно. Но​
• ​ монитора… И как​ (сжать до нужных​ОК​​и создаем еще​ не придется, то​ в разделе «Текст»​​ с первым рисунком​

planetaexcel.ru

Картинка по размеру, рассчитанному в таблице Экселя (Формулы/Formulas)

​Составить список, вставить картинки.​​ скопированный с этого​ вас актуальными справочными​«Настройка ленты»​Кликаем по ячейке, в​
​стояли галочки. Если​ лежит на листе​ In ActiveSheet.Shapes​ нужного размера автоматически?​ как соотнести -​ добиться адекватного результата.​
​ размеров, оптимизировать цветовую​во всех окнах​ один именованный диапазон:​ можете вместо ввода​ на функцию «Объект»​ в столбце. У​Сначала нужно подготовить​ листа, может казаться​ материалами на вашем​. Устанавливаем галочку около​

​ которую планируем вставить​​ какой-то параметр не​ и фактически ни​iHeight = sha.Height​
​ Ну никак он​ не ясно…​AlexM​ гамму и разрешение)​ и, возможно, немного​Имя нашей ссылки, допустим,​ этой страшноватой формулы​

​ (на картинке ниже​​ нас, в примере,​ таблицу с картинками,​ больше, потому что​ языке. Эта страница​
​ пункта​
​ изображение, правой кнопкой​ соответствует указанному выше​ с одной ячейкой​ ‘Высота картинки в​ не хочет показывать​Цитата​

​: 1 дюйм =​​ с помощью специальных​
​ подгоняем размеры примечания,​
​ будет​ просто указать =A2:A5​
​ обведена красным цветом).​ это ячейка В2​
​ фотографиями, изображениями для​ он вставлен с​
​ переведена автоматически, поэтому​«Разработчик»​ мышки. В контекстном​
​ описанию, то изменяем​ не связан.​ пунктах​
​ правильные размеры, ни​Russel, 02.04.2014 в​
​ 2,54 см​ программ.​
​ чтобы картинку было​
​Фото​
​Перейдем на​А в строке формул​ в диапазоне «Название»​ выпадающего списка. Мы​

​ фактическим размером.​​ ее текст может​в правой части​ меню выбираем пункт​ его.​Теперь нужно отредактировать картинку,​iWidth = sha.Width​ через пиксели, ни​ 16:08, в сообщении​Пиксел это точка.​Отобразить или скрыть сразу​ хорошо видно.​

​, а формула​​Лист 2​ убираем всё до​
​ (на Листе 2).​ сделали такую таблицу​Нажмите кнопку​ содержать неточности и​ окна. Жмем на​«Вставить примечание»​Переходим во вкладку​
​ придать ей соответствующие​ ‘Ширина картинки в​ через пункты… не​ № 10200?’200px’:»+(this.scrollHeight+5)+’px’);»>Почитайте статью,​ Его размер зависит​
​ все примечания можно​Как видно из первого​=СМЕЩ(Лист1!$B$2;ПОИСКПОЗ(Выбор;Фотоальбом;0)-1;0;1;1)​и создадим там​ знака «равно» и​ Нажимаем на ячейку​ (на Листе 2,​
​ОК​ грамматические ошибки. Для​ кнопку​.​«Свойства»​ формы и размер.​ пунктах​

​ получается…​​ мне кажется она​ от свойств оборудования.​ на вкладке​ способа, вставка одной​=OFFSET(Лист1!$B$2;MATCH(Выбор;Фотоальбом;0)-1;0;1;1)​ ячейку с выпадающим​ пишем имя диапазона.​ правой мышкой, выбираем​ в нашем примере).​.​ нас важно, чтобы​«OK»​Открывается небольшое окошко, предназначенное​этого же окна.​Кликаем по изображению правой​Next​Russel​ о Вашем вопросе.​ У мониторов и​Рецензирование — Показать все​ картинки в одно​

​Технически, функция​​ списком для выбора​ У нас, в​ из диалогового окна​Как вставить картинки, смотрите​На листе или в​ эта статья была​.​ для записи примечания.​
​ Устанавливаем галочки напротив​ кнопкой мыши. Открываются​End Sub​: Автоматически макросом из​Это все мы​ принтеров принято считать​ примечания (Review -​ примечание — процедура​

​ПОИСКПОЗ (MATCH)​​ пользователем модели телефона​ примере, это диапазон​
​ функцию «Копировать». Теперь​ в статье «Как​ другом документе щелкните​
​ вам полезна. Просим​
​Выделяем ячейку, в которую​ Переводим курсор на​
​ параметров​

​ параметры рисунка в​​Цитата​ сообщения 4 (надо​ знаем. Там всего​

​ количество пиклелей на​​ Show all comments)​ хоть и не​находит ячейку с​ (пусть это будет​
​ «Изображение».В появившемся диалоговом​​ эту ячейку нужно​ вставить в Excel​ в том месте,​ вас уделить пару​ планируем вставить картинку.​ его границу и​
​«Защищаемый объект»​ виде контекстного меню.​svobodniy, 03.04.2014 в​ его только изменить,​ 2 факта про​
​ 1 дюйм​​.​ сложная технически, но​ нужной моделью в​ A1). Выделяем ячейку​ окне переходим на​
​ вставить «как рисунок»​ фото, картинку».​ в которое необходимо​ секунд и сообщить,​ Перемещаемся во вкладку​ кликаем по ней.​
​и​ Кликаем по пункту​ 12:32, в сообщении​ чтобы значения брались​ 72 и 96…​Допустим, размер пиксела​Удалить все примечания из​ не очень-то быстрая.​ каталоге по названию,​

​ и идем в​​ закладку «Из файла».​ в ячейку у​Второй этап.​ вставить рисунок.​ помогла ли она​«Разработчик»​ Появляется ещё одно​«Выводить объект на печать»​«Размер и свойства»​ № 20200?’200px’:»+(this.scrollHeight+5)+’px’);»>Разрешение и​ из ячеек).​ А дальше то​
​ 1х1 мм картику​ выделенных ячеек можно​ Поэтому для вставки​ а функция​ меню​ Нажимаем на кнопку​ выпадающего списка (у​Нужно​На вкладке​
​ вам, с помощью​. Она появилась после​ контекстное меню. Выбираем​

​, если они не​​.​ размеры своего экрана​
​Сам я в​ что?​ в 100х100 px​ на вкладке​
​ картинок в массовых​СМЕЩ (OFFSET)​
​Данные - Проверка (Data​ «Обзор» и выбираем​ нас, в примере​
​присвоить имя диапазону​
​Главная​ кнопок внизу страницы.​ того, как мы​
​ в нём пункт​
​ установлены. Ставим переключатель​
​Открывается окно, в котором​
​ можно задать вручную.​ ВБА не силен,​Итого, остается вопрос…​ мы увидим некого​Главная — Очистить -​ масштабах (например, изображений​затем выдает ссылку​

​ — Validation)​​ папку и из​ – ячейка В2​столбца А этой​
​в группе​ Для удобства также​ активировали соответствующий режим.​«Формат примечания»​ в блоке настроек​​ присутствует множество инструментов​​Цитата​ увы.​ Как спроецировать картинку​ размера​ Примечания (Home -​

​ товаров в прайс)​​ на соседнюю справа​
​или в новых​ нее рисунок любой.​ на Листе 3).​ таблицы. Диапазон сделаем​буфер обмена​ приводим ссылку на​ Кликаем по кнопке​.​«Привязка объекта к фону»​ по изменению свойств​svobodniy, 03.04.2014 в​svobodniy​ на свой монитор​Теперь размер пикселя​

​ Clear — Comments)​​ лучше использовать простой​ от найденного названия​ версиях Excel -​ Нажимаем «Вставить», затем​На закладке «Главная»​
​ динамическим, чтобы можно​нажмите кнопку​ оригинал (на английском​

​«Вставить»​​В открывшемся окне настройки​в позицию​ картинки. Тут можно​ 10:20, в сообщении​: Автоматику я сделаю.​
​ такого размера, какой​ 2х2 мм -​.​ макрос. В качестве​ ячейку, т.е. ячейку​ на вкладку​ — «ОК». В​ нажимаем кнопку «Вставить»​ было добавлять или​Вставить​ языке) .​. В открывшемся меню​ формата примечаний переходим​«Перемещать и изменять объект​

​ изменить её размеры,​​ № 16200?’200px’:»+(this.scrollHeight+5)+’px’);»>как сделать​ Но я же​
​ она будет на​ картинка получится в​svobodniy​ исходных данных примем,​ с фотографией товара.​Данные — Проверка данных​ ячейке получилось так​
​ (вставляем НЕ через​ убирать лишние ячейки​
​или нажмите клавиши​При необходимости можно скопировать​
​ в блоке​ во вкладку​ вместе с ячейками»​ цветность, произвести обрезку,​ так, чтобы эксель​ говорю. Проблема в​ чужом мониторе с​
​ 4 раза больше,​: Скорее всего такого​ что у нас​Осталось выделить скопированную фотографию​

​ (Data — Data​​А в строке формул​​ контекстное меню). В​​ (картинки). Про динамический​ CTRL + V.​ данные, диаграммы или​«Элементы ActiveX»​«Цвета и линии»​
​. Когда все указанные​ добавить эффекты и​ показывал картинку нужного​
​ пикселях/пунктах. Не выходит​ другой диагональю и​ хотя она будет​ сделать невозможно, но​ есть:​ на​ Validation)​ убираем всё до​ разделе «Буфер обмена»​ диапазон читайте в​
​Кроме того при необходимости​ объекты листа и​выбираем пункт​. В блоке настроек​ настройки выполнены, жмем​ сделать много другого.​

​ размера автоматически?Противоречие наблюдается.​​ верного размера…​ другим разрешением. Вот​ так же 100х100​ я все же​список наименований товаров в​​Листе 2​
​. Далее в поле​ знака «равно» и​
​ выбираем функцию «Как​ статье «Чтобы размер​
​ можно изменить на​ вставить их в​«Изображение»​
​«Заливка»​ на кнопку​ Всё зависит от​
​ Как же вручную​
​За два дня​ ​ моя задача…​​ px​ спрошу.​ прайс-листе, к ячейкам​и вписать в​Тип данных (Allow)​
​ пишем имя диапазона.​​ рисунок», затем –​ таблицы Excel менялся​ этом рисунке. Для​ любом месте лист​.​кликаем по полю​«Закрыть»​ конкретного изображения и​

excelworld.ru

​ или автоматически?​

Microsoft рада поделиться новой функцией IMAGE в Excel, которая возвращает изображение внутри ячейки.

Функция IMAGE

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

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

Функция IMAGE вставляет изображения в ячейки из исходного местоположения вместе с альтернативным текстом. Все, что вам нужно сделать, это ввести в ячейку следующее: =IMAGE(source, [alt_text], [sizing], [height], [width]), где:

• [Рекомендуется] источник — URL-адрес файла изображения, использующий протокол «https». (ПРИМЕЧАНИЕ: Поддерживаемые форматы файлов включают BMP, JPG/JPEG, GIF, TIFF, PNG, ICO и WEBP;)
• [Необязательно] alt_text — это альтернативный текст, описывающий изображение (для доступности);
• [Необязательно] размер определяет размеры изображения. Существует несколько возможных значений:
• 0: Поместите изображение в ячейку и сохраните соотношение сторон;
• 1: Заполните ячейку изображением и игнорируйте его соотношение сторон;
• 2: Сохраните исходный размер изображения, который может превышать границы ячейки;
• 3: Настройте размер изображения, используя высоту и ширину;
• [Необязательно] высота и ширина определяют высоту и ширину изображения только при использовании опции размера 3;

Сценарии, которые можно попробовать

• Вставьте сферу в ячейку, набрав =IMAGE(“https://support.content.office.net/en-us/media/2d9e717a-0077-438f-8e5e-f85a1305d4ad.jpg”, “Sphere”);

• Вставьте цилиндр в ячейку:
1. Скопируйте и вставьте следующий URL-адрес в ячейку B1:

https://support.content.office.net/en-us/media/35aecc53-b3c1-4895-8a7d-554716941806.jpg

;
2. Введите Cylinder в ячейку B2.
3. Введите =IMAGE(B1,B2,0) в ячейку A3 и нажмите клавишу ENTER.

Известные проблемы

• Если URL-адрес файла изображения, который вы используете, указывает на сайт, требующий аутентификации, изображение не будет рендериться;
• Увеличение и уменьшение изображений в ячейках может привести к искажению изображений;
• Перемещение между платформами (например, Windows и Mac) может привести к неправильному рендерингу изображения;

Доступность

Функция IMAGE доступна инсайдерам, использующим следующие сборки Beta Channel:

• Windows: Version 2209 (Build 15608.10000) или позже;
• Mac: Version 16.65 (Build 22080701) или позже;
• iOS: Version 2.65 (Build 22080701) или позже;
• Android: 16.0.15608.10000 или позже;

Узнать другие подробности можно

здесь

.

Хитрости »

6 Февраль 2020              22752 просмотров

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

Сама по себе задача вставки картинки на листе не сложная и ответ лежит на поверхности: это доступно прямо из меню: Вставка(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) —Insert —Module) и вставить в него приведенный выше код. Чтобы картинка вставилась в ячейку, надо записать имя картинки в ячейку 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) подтягивать из справочника название картинки и уже по этому названию вставлять картинку. Но подстроить код под это уже не сложно. Приводить его здесь не буду, т.к. можно будет запутаться с описанием списка, функций, где и что. Тем более что сам код практически не отличается. К тому же именно в этой реализации код есть в приложенном к статье файле.
Скачать файл:

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

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

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

'---------------------------------------------------------------------------------------
' 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 < 2 Then
        Exit Sub
    End If
    'цикл по столбцу с именами картинок
    For lr = 2 To llastr
        sPicName = Cells(lr, 2).Value
        'проверяем наличие картинки в папке
        sPFName = sPicsPath & sPicName
        If Dir(sPFName, 16) <> "" 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, 2 393 скачиваний)

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

Так же см.:
Как сохранить картинки из листа Excel в картинки JPG
При вставке из VBA картинки на лист ошибка «Метод paste из класса worksheet завершен неверно»
Как скопировать картинку из примечания?
Копирование картинки из примечания

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

    Видеоуроки

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



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика