Códigos de barras no Excel 2016, Excel 2013 e Excel 365

Incorpore e automatize um código de barras em uma planilha do Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010

A seguir, apresentamos uma breve descrição de como adicionar um código de barras a um documento do Excel e vinculá-lo ao conteúdo de uma célula.

Primeiro, inicie o Excel e crie ou abra um documento.

Certifique-se de que o Excel está configurado para exibir a guia Desenvolvedor. Para isso, acesse as Opções do Excel clicando na guia Arquivo. Isso o levará para a exibição Backstage. Em seguida, clique em Opções no grupo de guias à esquerda. ActiveBarcode: Barcode, Excel

Em Personalizar Faixa de Opções, habilite a opção Desenvolvedor nas guias principais e, em seguida, feche a janela de opções. ActiveBarcode: Barcode, Excel

Agora é possível incorporar o elemento de controle ActiveBarcode ao seu documento. Selecione a guia Desenvolvedor. Clique no botão Inserir na área Controles ActiveX e, em seguida, selecione Mais controles. ActiveBarcode: Barcode, Excel

Uma caixa de diálogo é exibida na tela: ActiveBarcode: Barcode, Excel

Selecione ActiveBarcode e clique em OK. Um código de barras será criado dentro do seu documento. Será um código de barras EAN-128 padrão. Esse é o tipo padrão. É possível alterá-lo para qualquer tipo de código de barras compatível com o 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 ...Agora é possível modificar este código de barras. É possível alterar o tipo, o texto, as cores, etc. Para isso, clique com o botão direito do mouse dentro do código de barras. Um menu pop-up será exibido: ActiveBarcode: Barcode, Excel

Selecione Objeto ActiveBarcode seguido de Propriedades. A caixa de diálogo de propriedades do ActiveBarcode será aberta. Aqui, você pode modificar o código de barras conforme desejar.

Como alternativa, é possível utilizar a caixa de diálogo de propriedades do Excel. Para isso, clique no botão Propriedades na área Controles: ActiveBarcode: Barcode, Excel

Crie um link entre uma célula e o código de barras: Abra a caixa de diálogo de propriedades do Excel conforme descrito acima. Ative o objeto código de barras clicando nele uma vez. As propriedades do objeto código de barras serão exibidas na caixa de diálogo de propriedades. Procure a propriedade chamada LinkedCell. Essa propriedade cria um link entre uma célula e o código de barras: ActiveBarcode: Barcode, Excel

Insira o nome da célula para o link nesta propriedade. Pronto!

Se desejar criar um código de barras que codifique dados de várias células, é necessário primeiro mesclar essas células em uma célula auxiliar. Em seguida, conecte essa célula combinada ao objeto de código de barras.

No exemplo a seguir, o conteúdo das células B3 e B4 é combinado na célula B6. A célula B6 está vinculada ao objeto código de barras. ActiveBarcode: Barcode, Excel

Utilizando e automatizando códigos de barras com VBA em Excel

É possível utilizar o Visual Basic para Aplicações (VBA) para resolver diversas questões no Excel. Aqui, demonstraremos como incorporar, utilizar e excluir o controle ActiveBarcode com VBA:

Incorporando o controle ActiveBarcode em uma planilha:
Neste exemplo, um controle de código de barras será colocado diretamente acima de uma célula. Assim, parecerá que o código de barras está dentro de uma célula.

Primeiramente, verificamos o tamanho das células:

CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left

Observe que uma célula deve ter um tamanho mínimo para que o código de barras possa caber nela. Se a célula for muito pequena, será exibido um erro de tamanho. Portanto, redimensionamos a altura da célula para 30 pixels:

' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30

A função a seguir criará o controle de código de barras diretamente acima da célula:

ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select

É possível vincular diretamente o objeto código de barras a uma célula:

ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"

Para facilitar o acesso ao controle, armazenamos o nome do controle na variável MyBarcode:

MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name

Agora é possível utilizar as propriedades e métodos do objeto código de barras conforme desejar:

' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")

Caso não necessite mais do controle, é possível excluí-lo da planilha:

ActiveSheet.OLEObjects(MyBarcode).Delete

Dica: Se for necessário que o Windows processe eventos futuros (frequentemente referidos como KeepWindowsAlive) dentro de uma macro, é possível forçar isso utilizando a seguinte função VBA:

DoEvents

Isso pode ser necessário, por exemplo, se o controle precisar ser redesenhado.