Používanie a automatizácia čiarových kódov pomocou VBA v Word

Na riešenie mnohých úloh v programe Word môžete použiť jazyk VisualBasic for Applications (VBA). Tu vám ukážeme, ako vložiť, používať a odstrániť ovládací prvok ActiveBarcode pomocou VBA:

Vloženie ovládacieho prvku ActiveBarcode do dokumentu:
V tomto príklade bude ovládací prvok čiarového kódu umiestnený na pozícii kurzora. Potom môžete objekt upraviť pomocou premennej ab:

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

Nastavte štandardné vlastnosti (výška, šírka) objektu pomocou premennej ab:

ab.Width = 200
ab.Height = 120

K vlastnostiam a metódam objektu čiarového kódu môžete pristupovať pomocou vlastnosti OLEFormat.Object:

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

Môžete tiež použiť čistejší spôsob prístupu k vlastnostiam vytvorením a použitím premennej, napr. s názvom abObject:

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

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

Pomocou nasledujúceho volania môžete objekt čiarového kódu previesť do InlineShape. Upozorňujeme, že po prevode už čiarový kód nemožno zmeniť.

ab.ConvertToShape

Ak už ovládací prvok nepotrebujete, môžete ho z dokumentu odstrániť:

 ab.Delete

Tip: Ak je potrebné, aby systém Windows spracoval nadchádzajúce udalosti (často označované ako KeepWindowsAlive) v rámci makra, môžete to vynútiť pomocou nasledujúcej funkcie VBA:

DoEvents

To môže byť potrebné napríklad v prípade, ak sa ovládač musí nakresliť nanovo.