Как вставить qr код в документ excel

Вы знаете, как создать QR-код на основе определенного значения ячейки в Excel? В этой статье мы подробно расскажем, как этого добиться.

Создайте QR-код на основе значения ячейки с помощью Barcode Control и кода VBA
Легко создавайте сразу несколько QR-кодов на основе значений ячеек с помощью замечательного инструмента.

---

Создайте QR-код на основе значения ячейки с помощью Barcode Control и кода VBA

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

1. Откройте рабочий лист, содержащий значение ячейки, на основе которого вы создадите QR-код.

2. Нажмите Застройщик > Вставить > Больше контроля. Смотрите скриншот:

3. в Больше элементов управления окно, проверьте наличие Контроль штрих-кода Microsoft 16.0 or Контроль штрих-кода Microsoft 15.0.

4. Если вы не нашли элемент управления штрих-кодом в окне «Дополнительные элементы управления» или элемент управления штрих-кодом не соответствует версии 16.0 или 15.0, вам необходимо загрузить файл управления штрих-кодом, щелкнув следующие ссылки: скачать контроль штрих-кода. Если в окне дополнительных элементов управления есть Barcode Control 16.0 или 15.0, просто перейдите на страницу ниже. шаг 10.

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

5. Закройте все книги Excel, перейдите в Start раздел, найдите Excel app и щелкните его правой кнопкой мыши, затем выберите Запуск от имени администратора из контекстного меню. Смотрите скриншот:

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

7. Затем создается новая книга. Пожалуйста, нажмите Застройщик > Вставить > Больше контроля. Смотрите скриншот:

8. в Больше элементов управления окна, нажмите Зарегистрироваться Custom кнопку, найдите и выберите один из загруженных файлов OCX с qr-кодом, а затем щелкните Откройте кнопка. Смотрите скриншот:

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

10. Щелкните правой кнопкой мыши вкладку листа и щелкните Просмотреть код из контекстного меню, чтобы открыть Microsoft Visual Basic для приложений окно. Затем скопируйте и вставьте ниже код VAB в окно кода. И наконец нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

Код VBA: создать QR-код в Excel

Sub setQR()
'Updated by Extendoffice 2018/8/22
    Dim xSRg As Range
    Dim xRRg As Range
    Dim xObjOLE As OLEObject
    On Error Resume Next
    Set xSRg = Application.InputBox("Please select the cell you will create QR code based on", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    Set xRRg = Application.InputBox("Select a cell to place the QR code", "Kutools for Excel", , , , , , 8)
    If xRRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xObjOLE = ActiveSheet.OLEObjects.Add("BARCODE.BarCodeCtrl.1")
    xObjOLE.Object.Style = 11
    xObjOLE.Object.Value = xSRg.Text
    ActiveSheet.Shapes.Item(xObjOLE.Name).Copy
    ActiveSheet.Paste xRRg
    xObjOLE.Delete
    Application.ScreenUpdating = True
End Sub

11. Нажмите Застройщик > Вставить > Кнопка (элемент управления формой) как показано ниже.

12. Нарисуйте кнопку на текущем листе. В всплывающем Назначить макрос диалоговое окно, выберите установитьQR в поле, а затем щелкните OK кнопку.

13. Выключите Режим проектирования кликнув Застройщик > Режим проектирования.

14. Нажмите кнопку в открывшемся Kutools for Excel выберите ячейку, на основе которой будет создан QR-код, и нажмите OK.

15. В секунду Kutools for Excel выберите ячейку для размещения QR-кода. Смотрите скриншот:

Тогда QR-код будет немедленно вставлен в указанную ячейку. Повторите шаги с 14 по 15, чтобы завершить создание всех QR-кодов. Смотрите скриншот:

---

Легко создавайте сразу несколько QR-кодов на основе значений ячеек с помощью замечательного инструмента.

Честно говоря, описанный выше метод не прост в использовании, поскольку у него есть свои ограничения. Здесь настоятельно рекомендуется Вставить QR-код особенность Kutools for Excel. Эта функция может помочь вам быстро вставить QR-коды в большом количестве на основе указанных значений ячеек в Excel всего за несколько щелчков мышью. Пожалуйста, сделайте следующее, чтобы это сделать.

1. Во-первых, подготовьте свои значения, на основе которых вы хотите создать QR-код.

2. Нажмите Кутулс > Вставить > Вставить QR-код.

Советы: Если вы не можете найти объект по этому пути, нажмите другой + S клавиши одновременно, чтобы открыть Поиск функций Kutools коробка, введите вручную QR код в поле поиска, тогда вы увидите Вставить QR-код функция указана в списке, просто нажмите, чтобы активировать эту функцию. Смотрите скриншот:

Теперь панель «Вставить QR-код» отображается в правой части книги.

3. в Вставить QR-код панели необходимо настроить следующим образом.

4. Затем Kutools for Excel появится диалоговое окно, щелкните ОК.

5. Затем одновременно создаются QR-коды. Вам нужно вручную закрыть Вставить QR-код панель, если завершите создание всех QR-кодов.

Нажмите, чтобы узнать больше об этой функции …

---

Связанная статья:

• Как легко вставить штрих-код в ячейки с помощью шрифта штрих-кода в 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

Откройте EXCEL

Нажмите «Файл — Параметры — Настройка ленты» и в правой части поставьте галочку Разработчик, нажмите OK

Откройте закладку Разработчик и кликните на Visual Basic ( или нажмите ALT+F11 )

На строке VBAProject ( _имя вашего файла EXCEL_ ) нажмите правую кнопку мыши и выберите Import File…

Найдите в эталоне ( в папке TEMPLATE ) файл GoogleAPI.bas и откройте его

Сохраните книгу, выбрав тип Шаблон Excel с поддеркой макросов (*.xltm), закройте Microsoft Visual Basic for Applications

Теперь, если в ячейке А1 написать =URL_QRCode_SERIES(«qr_code_1″;A2;;»qrCode»), а в ячейке A2 написать любую строку, то вы увидите QR-код прямо в книге ( он появится в виде рисунка )

https://chart.googleapis.com/chart?chs=400×400&cht=qr&chld=H&chl=Hello_World

Смотрите также

Информация для разработчиков системы фабиус