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

S Visual Basic for Applications (VBA) môžete ľahko vyriešiť mnoho problémov. Tu vám stručne ukážeme, ako integrovať čiarový kód do prezentácie PowerPoint pomocou VBA, ako ho používať a ako ho odstrániť.

Takto vložíte ovládací prvok ActiveBarcode do aktívnej snímky pomocou VBA:
V tomto príklade je čiarový kód umiestnený na špecifikovanú pozíciu a veľkosť v snímke. Objekt je potom možné adresovať prostredníctvom 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")

Teraz môžete zmeniť štandardné vlastnosti (napr. výška, šírka) objektu OLE pomocou vlastností premennej ab:

ab.Width = 200
ab.Height = 120

Teraz môžete vlastnosti a metódy objektu čiarového kódu používať podľa potreby:

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

Ak už ovládací prvok nepotrebujete, napríklad po vytlačení, môžete ho ľahko odstrániť z makra/snímky:

 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.