PowerPoint
Objetos de código de barras con VBA

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

Puede resolver fácilmente muchas cosas con VisualBasic para Aplicaciones (VBA). Aquí le mostramos brevemente, cómo integrar el objeto de código de barras en una presentación de PowerPoint usando VBA, usarlo y eliminarlo de nuevo:

Esta es la forma de insertar el control ActiveBarcode en la diapositiva activa mediante VBA:
En este ejemplo, el código de barras se coloca en la posición y el tamaño especificados en la diapositiva. A continuación, el objeto se puede dirigir a través de "ab":

Dim ab As Shape
Set ab = Application.ActiveWindow.View.Slide.Shapes.AddOLEObject(Left:=100,
  Top:=100, Width:=300, Height:=150, ClassName:="ACTIVEBARCODE.BarcodeCtrl.1")

Ahora puede cambiar las propiedades estándar (por ejemplo, altura, anchura) del objeto OLE utilizando las propiedades de la variable "ab":

ab.Width = 200
ab.Height = 120

Puede tener acceso a las propiedades y métodos del objeto de código de barras mediante la propiedad "OLEFormat.Object". Estos son algunos ejemplos:

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"
ab.OLEFormat.Object.Rotate = 90

Si ya no necesita el control dentro de la macro/diapositiva (por ejemplo, después de imprimir), puede eliminarlo fácilmente:

 ab.Delete

Sugerencia: Si es necesario que Windows procese eventos pendientes en una macro en el medio (a menudo también llamado "KeepWindowsAlive"), puede forzar esto mediante la siguiente función VBA:

DoEvents

Esto puede ser necesario, por ejemplo, si el control necesita volver a dibujarse.