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

Možete koristiti Visual Basic za aplikacije (VBA) za rješavanje mnogih stvari u Wordu. Ovdje ćemo vam pokazati kako ugraditi, koristiti i izbrisati kontrolu ActiveBarcode pomoću VBA:

Ugradnja ActiveBarcode kontrole u dokument:
U ovom primjeru kontrola barkoda bit će postavljena na položaj kursora. Zatim možete izmijeniti objekt koristeći varijablu ab:

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

Postavite standardna svojstva (visinu, širinu) objekta koristeći varijablu ab:

ab.Width = 200
ab.Height = 120

Možete pristupiti svojstvima i metodama objekta crtičnog koda koristeći svojstvo OLEFormat.Object:

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

Također možete koristiti čišći način pristupa svojstvima tako da kreirate i koristite varijablu, npr. nazvanu abObject:

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

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

Koristeći sljedeći poziv možete pretvoriti objekt barkoda u InlineShape. Imajte na umu da nakon konverzije ne možete mijenjati barkod.

ab.ConvertToShape

Ako vam kontrola više nije potrebna, možete je izbrisati iz dokumenta:

 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.