Korištenje i automatizacija barkodova pomoću VBA u PowerPoint

Pomoću Visual Basic for Applications (VBA) možete jednostavno riješiti mnoge probleme. Ovdje ćemo vam ukratko pokazati kako integrirati barkod u PowerPoint prezentaciju pomoću VBA, kako ga koristiti i kako ga ukloniti.

Evo kako umetnuti kontrolu ActiveBarcode u aktivnu slajd pomoću VBA:
U ovom primjeru barkod je postavljen na navedenu poziciju i veličinu na slajdu. Objekt se potom može adresirati putem 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")

Sada možete promijeniti standardna svojstva (npr. visinu, širinu) OLE objekta koristeći svojstva varijable ab:

ab.Width = 200
ab.Height = 120

Sada možete koristiti svojstva i metode objekta crtičnog koda po želji:

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

Možete jednostavno ukloniti kontrolu s makroa/slajda ako vam više nije potrebna, na primjer nakon ispisa:

 ab.Delete

Savjet: Ako je potrebno da Windows obradi nadolazeće događaje (često nazivane KeepWindowsAlive) unutar makra, to možete prisiliti koristeći sljedeću VBA funkciju:

DoEvents

Ovo može biti potrebno, npr. ako Kontrola mora ponovno nacrtati sebe.