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

Con Visual Basic para Aplicaciones (VBA), puede resolver fácilmente muchos problemas. Aquí le mostramos brevemente cómo integrar un código de barras en una presentación de PowerPoint mediante VBA, cómo utilizarlo y cómo eliminarlo.

Así es como se inserta el Control ActiveBarcode en la diapositiva activa utilizando VBA:
En este ejemplo, el código de barras se coloca en la posición y tamaño especificados en la diapositiva. A continuación, el objeto puede direccionarse mediante 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

Ahora puede utilizar las propiedades y métodos del objeto de código de barras como desee:

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

Puede eliminar fácilmente el control de la macro/diapositiva si ya no lo necesita, por ejemplo, después de imprimirla:

 ab.Delete

Sugerencia: Si es necesario que Windows procese los próximos eventos (a menudo llamados "KeepWindowsAlive") dentro de una macro, puede forzarlo utilizando la siguiente función VBA:

DoEvents

Esto puede ser necesario, por ejemplo, si el Control debe dibujarse nuevo.