Скачать

Excel
Объекты штрих-кода в электронной таблице

 Standard или выше

Вставка и автоматизация штрих-кода в таблице Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
Ниже представлено краткое описание того, как добавить штрих-код в документ Excel и связать его с содержимым ячейки.

Сначала запустите Excel и создайте или откройте документ.

Убедитесь, что Excel настроен таким образом, чтобы была видна вкладка «Разработчик ». Для этого перейдите в «Параметры Excel», нажав вкладку «Файл ». Вы перейдете в режим просмотра Backstage. Затем нажмите «Параметры» в группе вкладок слева.ActiveBarcode: Barcode, Excel


1


В разделе «Настройка ленты» включите опцию «Разработчик» на основных вкладках, затем закройте окно настроек.ActiveBarcode: Barcode, Excel


2


Теперь вы можете встроить элемент управления ActiveBarcode в свой документ. Выберите вкладку «Разработчик ». Нажмите кнопку «Вставить» в диапазоне «Элементы управления ActiveX», а затем выберите «Дополнительные элементы управления».ActiveBarcode: Barcode, Excel


3


На экране отображается диалоговое окно:ActiveBarcode: Barcode, Excel


4


Выберите ActiveBarcode и нажмите OK. В вашем документе будет создан штрихкод. Это будет стандартный штрихкод EAN-128. Это тип по умолчанию. Вы можете изменить его на любой тип штрихкода, поддерживаемый ActiveBarcode: QR Code, GS1/EAN-128, Data Matrix, GTIN/EAN-13, Code 39, Code 93, GS1-Data Matrix, Code 128, PDF417, DUN-14, EAN-8, EAN-14, EAN-18, ISBN, ITF-14, NVE, PZN8, SCC-14, SSCC-18 ...Теперь вы можете изменить этот штрихкод. Вы можете изменить тип, текст, цвета и т. д. Для этого щелкните правой кнопкой мыши внутри штрихкода. Откроется всплывающее меню: ActiveBarcode: Barcode, Excel


5


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

В качестве альтернативы можно воспользоваться диалоговым окном свойств Excel. Для этого нажмите кнопку «Свойства» в диапазоне «Элементы управления »:ActiveBarcode: Barcode, Excel


6


Создайте связь между ячейкой и штрих-кодом: откройте диалоговое окно свойств Excel, как описано выше. Активируйте объект штрих-кода, щелкнув по нему один раз. Свойства объекта штрих-кода теперь будут отображаться в диалоговом окне свойств. Найдите свойство с именем LinkedCell. Это свойство создает связь между ячейкой и штрих-кодом:ActiveBarcode: Barcode, Excel


7


Введите название ячейки для ссылки в это свойство. Это все

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

В следующем примере содержимое ячеек B3 и B4 объединено в ячейке B6. Ячейка B6 связана с объектом штрих-кода.ActiveBarcode: Barcode, Excel

Использование и автоматизация штрих-кодов с помощью VBA в Excel

Вы можете использовать VisualBasic для приложений (VBA) для решения многих задач в Excel. Здесь мы продемонстрируем, как встроить, использовать и удалить элемент управления ActiveBarcode с помощью VBA:

Встраивание элемента управления ActiveBarcode в лист:
В данном примере элемент управления штрих-кодом будет размещен непосредственно над ячейкой. В результате будет создаваться впечатление, что штрих-код находится внутри ячейки.

Сначала мы читаем размер ячеек:
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
Обратите внимание, что ячейка должна иметь минимальный размер, чтобы штрихкод мог в нее поместиться. Если ячейка слишком мала, будет отображаться ошибка размера. Поэтому мы изменяем высоту ячейки до 30 пикселей:
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
Следующая функция создаст элемент управления штрих-кодом непосредственно над ячейкой:
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
Вы можете напрямую связать объект штрих-кода с ячейкой:
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
Для удобного доступа к элементу управления мы сохраняем его имя в переменной MyBarcode:
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Теперь вы можете использовать свойства и методы объекта штрих-кода по своему усмотрению:
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
Если элемент управления больше не требуется, его можно удалить из листа:
ActiveSheet.OLEObjects(MyBarcode).Delete
Подсказка: если необходимо, чтобы Windows обрабатывала предстоящие события (часто называемые KeepWindowsAlive) в макросе, вы можете принудительно выполнить это с помощью следующей функции VBA:
DoEvents
Это может потребоваться, например, если элемент управления должен перерисовать себя заново.