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

Pomocí jazyka VisualBasic for Applications (VBA) můžete v aplikaci Word řešit mnoho věcí. Zde vám ukážeme, jak vložit, používat a odstranit ovládací prvek ActiveBarcode pomocí VBA:

Vložení ovládacího prvku ActiveBarcode do dokumentu:
V tomto příkladu bude ovládací prvek čárového kódu umístěn na pozici kurzoru. Poté můžete objekt upravit pomocí proměnné ab:

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
  FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

Nastavte standardní vlastnosti (výška, šířka) objektu pomocí proměnné ab:

ab.Width = 200
ab.Height = 120

K vlastnostem a metodám objektu čárového kódu můžete přistupovat pomocí vlastnosti OLEFormat.Object:

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

K přístupu k vlastnostem můžete také použít čistší způsob, a to vytvořením a použitím proměnné, např. s názvem abObject:

Dim abObject As Object
With ab.OLEFormat
  .Activate
  Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"

Pomocí následujícího volání můžete převést objekt čárového kódu do InlineShape. Upozorňujeme, že po převodu již nelze čárový kód změnit.

ab.ConvertToShape

Pokud již ovládací prvek nepotřebujete, můžete jej z dokumentu odstranit:

 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.