Descargar

Excel
Objetos de código de barras en una hoja de cálculo

 Standard o superior

Encajen y automaticen un código de barras en un documento de Excel

Excel 365, 2024, 2021, 2019, 2016, 2013, 2010
A continuación se describe brevemente cómo añadir un código de barras a un documento Excel y vincularlo con el contenido de una celda.

En primer lugar, inicie Excel y cree o abra un documento.

Asegúrese de que ha configurado Excel para que aparezca la pestaña Desarrollador. Para ello, vaya a Opciones de Excel haciendo clic en la pestaña Archivo. Esto le cambiará a la vista Backstage. A continuación, haga clic en Opciones en el grupo de pestañas de la izquierda.ActiveBarcode: Barcode, Excel


1


En Personalizar cinta de opciones, active la opción Desarrollador en las pestañas principales y, a continuación, cierre la ventana de opciones.ActiveBarcode: Barcode, Excel


2


Ahora puede incrustar el elemento de control ActiveBarcode en su documento. Seleccione la pestaña Desarrollador. Haga clic en el botón Insertar del rango Controles ActiveX y, a continuación, seleccione Más controles.ActiveBarcode: Barcode, Excel


3


Aparece un cuadro de diálogo en la pantalla:ActiveBarcode: Barcode, Excel


4


Seleccione Código de barras activo y haga clic en Aceptar. Ahora se creará un código de barras dentro de su documento. Será un código de barras estándar EAN-128. Este es el tipo por defecto. Puede cambiarlo por cualquier tipo de código de barras soportado por 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 ...Ahora puede modificar este código de barras. Puede cambiar el tipo, el texto, los colores, etc. Para ello, haga clic con el botón derecho del ratón dentro del código de barras. Se abrirá un menú emergente: ActiveBarcode: Barcode, Excel


5


Seleccione Objeto de código de barras activo seguido de Propiedades. Se abrirá el cuadro de diálogo Propiedades del código de barras activo. Aquí puede modificar el código de barras como desee.

Alternativamente, puede utilizar el cuadro de diálogo de propiedades de Excel. Para ello, haga clic en el botón Propiedades del rango Controles:ActiveBarcode: Barcode, Excel


6


Crear un enlace entre una celda y el código de barras: Abra el cuadro de diálogo de propiedades de Excel como se ha descrito anteriormente. Active el objeto código de barras haciendo clic sobre él una vez. Las propiedades del objeto código de barras se mostrarán ahora en el cuadro de diálogo de propiedades. Busque la propiedad llamada CeldaEnlazada. Esta propiedad crea un vínculo entre una celda y el código de barras:ActiveBarcode: Barcode, Excel


7


Introduzca el nombre de la celda para el enlace en esta propiedad. ¡Eso es todo!

Si desea crear un código de barras que codifique datos de varias celdas, primero debe combinar estas celdas en una celda de ayuda. A continuación, conecte esta celda combinada con el objeto de código de barras.

En el siguiente ejemplo, el contenido de las celdas B3 y B4 se combina en la celda B6. La celda B6 está vinculada al objeto de código de barras.ActiveBarcode: Barcode, Excel

Uso y automatización de códigos de barras con VBA en Excel

Puedes utilizar VisualBasic para Aplicaciones (VBA) para resolver muchas cosas en Excel. Aquí le mostraremos cómo incrustar, utilizar y eliminar el control ActiveBarcode con VBA:

Incrustación del Control ActiveBarcode en una Hoja:
En este ejemplo se colocará un control de código de barras directamente encima de una celda. Entonces parece que el código de barras estaría dentro de una celda.

Primero leemos el tamaño de las células:
CurrentCell = "C3"
MyHeight = Range(CurrentCell).Height
MyWidth = Range(CurrentCell).Width
MyTop = Range(CurrentCell).Top
MyLeft = Range(CurrentCell).Left
Tenga en cuenta que una celda debe tener un tamaño mínimo para que el código de barras quepa en ella. Si la celda es demasiado pequeña se mostrará un Error de tamaño. Así que redimensionamos la altura de la celda a 30 píxeles:
' Enlarge the cell height to 30 pixels
Range(CurrentCell).RowHeight = 30
La siguiente función creará el control de código de barras directamente encima de la celda:
ActiveSheet.OLEObjects.Add(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1", Link:=False, _
 DisplayAsIcon:=False, Width:=MyWidth , Height:=MyHeight, Top:=MyTop + 2,_
 Left:=MyLeft + 4).Select
Puede vincular directamente el objeto de código de barras con una celda:
ActiveSheet.OLEObjects(MyBarcode).LinkedCell = "B7"
Para acceder fácilmente al control almacenamos el nombre del control en la variable MiCódigoDeBarcación:
MyBarcode = ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Name
Ahora puede utilizar las propiedades y métodos del objeto código de barras como desee:
' set properties
ActiveSheet.OLEObjects(MyBarcode).Object.Font.Size = 8
ActiveSheet.OLEObjects(MyBarcode).Object.Type = 14 ' Code 128
ActiveSheet.OLEObjects(MyBarcode).Object.Text = Range("C3")
Si ya no necesita el control, puede eliminarlo de la hoja:
ActiveSheet.OLEObjects(MyBarcode).Delete
Sugerencia: Si es necesario que Windows procese los próximos eventos (a menudo denominado KeepWindowsAlive) dentro de una macro, puede forzarlo mediante la siguiente función VBA:
DoEvents
Esto puede ser necesario, por ejemplo, si el Control debe dibujarse nuevo.