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

Incorporar e automatizar um código de barras em uma planilha do Excel

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

Segue-se uma breve descrição de como adicionar um código de barras a um documento Excel e ligá-lo ao conteúdo de uma célula.

Em primeiro lugar, inicie o Excel e crie ou abra um documento.

Certifique-se de que configurou o Excel para que o separador Desenvolvedor apareça. Para fazer isso, vá para Opções do Excel clicando na guia Arquivo. Isso o levará para o modo de exibição Backstage. Em seguida, clique em Opções no grupo de guias à esquerda. ActiveBarcode: Barcode, Excel

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

Agora pode incorporar o elemento de controlo ActiveBarcode no seu documento. Selecione a guia Desenvolvedor. Clique no botão Inserir no intervalo Controles ActiveX e, em seguida, selecione Mais controles. ActiveBarcode: Barcode, Excel

Aparece uma caixa de diálogo no ecrã: ActiveBarcode: Barcode, Excel

Selecione ActiveBarcode e clique em OK. Um código de barras será criado dentro do seu documento. Ele será um código de barras padrão EAN-128. Este é o tipo padrão. Você pode alterá-lo para qualquer tipo de código de barras suportado pelo 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 ...Pode agora modificar este código de barras. Pode alterar o tipo, o texto, as cores, etc. Para o fazer, clique com o botão direito do rato no código de barras. Abre-se um menu pop-up: ActiveBarcode: Barcode, Excel

Selecione ActiveBarcode Object seguido de Properties. A caixa de diálogo de propriedade ActiveBarcode será aberta. Você pode modificar o código de barras como quiser aqui.

Alternativamente, você pode usar a caixa de diálogo de propriedades do Excel. Para fazer isso, clique no botão Propriedades no intervalo Controles: ActiveBarcode: Barcode, Excel

Criar uma ligação entre uma célula e o código de barras: Abra a caixa de diálogo de propriedades do Excel como descrito acima. Active o objeto código de barras clicando uma vez no mesmo. As propriedades do objeto código de barras serão agora apresentadas na caixa de diálogo de propriedades. Procure a propriedade chamada LinkedCell. Esta propriedade cria uma ligação entre uma célula e o código de barras: ActiveBarcode: Barcode, Excel

Introduza o nome da célula para a ligação nesta propriedade. É isso!

Para criar um código de barras que codifique dados de várias células, é necessário primeiro fundir essas células numa célula auxiliar. Em seguida, ligar esta célula combinada ao objeto código de barras.

No exemplo seguinte, os conteúdos das células B3 e B4 são combinados na célula B6. A célula B6 está ligada ao objeto código de barras. ActiveBarcode: Barcode, Excel

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

Pode utilizar o VisualBasic for Applications (VBA) para resolver muitas coisas no Excel. Aqui vamos mostrar-lhe como incorporar, utilizar e eliminar o controlo ActiveBarcode com VBA:

Incorporando o controle ActiveBarcode em uma folha:
Neste exemplo, um controlo de código de barras será colocado diretamente por cima de uma célula. Assim, parece que o código de barras está dentro de uma célula.

Primeiro, lemos o tamanho das células:

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

Tenha em atenção 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 demasiado pequena, será apresentado um erro de tamanho. Por isso, redimensionamos a altura da célula para 30 pixéis:

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

A função seguinte criará o controlo do 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 ligar diretamente o objeto código de barras a uma célula:

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

Para obter um acesso fácil ao controlo, armazenamos o nome do controlo na variável MyBarcode:

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

Agora pode utilizar as properties e methods do objeto código de barras como 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")

Se já não precisar do controlo, pode eliminá-lo da folha:

ActiveSheet.OLEObjects(MyBarcode).Delete

Sugestão: Se for necessário que o Windows processe os eventos futuros (frequentemente referidos como KeepWindowsAlive) numa macro, pode forçá-lo utilizando a seguinte função VBA:

DoEvents

Isto pode ser necessário, por exemplo, se o Controlo tiver de se desenhar de novo.