Používání a automatizace čárových kódů pomocí VBA v PowerPoint

S pomocí jazyka Visual Basic for Applications (VBA) můžete snadno vyřešit mnoho problémů. Zde vám stručně ukážeme, jak pomocí jazyka VBA integrovat čárový kód do prezentace PowerPoint, jak jej používat a jak jej odstranit.

Takto vložíte ovládací prvek ActiveBarcode do aktivního snímku pomocí VBA:
V tomto příkladu je čárový kód umístěn na určenou pozici a velikost na snímku. Objekt lze poté adresovat pomocí 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")

Nyní můžete změnit standardní vlastnosti (např. výšku, šířku) objektu OLE pomocí vlastností proměnné ab:

ab.Width = 200
ab.Height = 120

Nyní můžete vlastnosti a metody objektu čárového kódu používat podle libosti:

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

Pokud ovládací prvek již nepotřebujete, například po tisku, můžete jej snadno odstranit z makra/snímku:

 ab.Delete

Tip: Pokud je nutné, aby Windows zpracovával nadcházející události (často označované jako KeepWindowsAlive) v rámci makra, můžete to vynutit pomocí následující funkce VBA:

DoEvents

To může být nutné například v případě, že se ovládací prvek musí překreslit.