Barcodes gebruiken en automatiseren met VBA in Word

Je kunt VisualBasic for Applications (VBA) gebruiken om veel dingen op te lossen in Word. Hier laten we zien hoe je het ActiveBarcode-besturingselement kunt insluiten, gebruiken en verwijderen met VBA:

De ActiveBarcode Control insluiten in een document:
In dit voorbeeld wordt een barcodebesturingselement op de cursorpositie geplaatst. Vervolgens kun je het object wijzigen met de variabele ab:

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

Stel de standaardeigenschappen (hoogte, breedte) van het object in met de variabele ab:

ab.Width = 200
ab.Height = 120

Je hebt toegang tot de eigenschappen en methoden van het barcodeobject door de property OLEFormat.Object te gebruiken:

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

Je kunt ook een schonere manier gebruiken om toegang te krijgen tot de eigenschappen door een variabele te maken en te gebruiken, bijvoorbeeld met de naam abObject:

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

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

Met de volgende aanroep kun je het barcode-object in een InlineShape gieten. Merk op dat je de barcode niet kunt wijzigen na de conversie.

ab.ConvertToShape

Als je het besturingselement niet meer nodig hebt, kun je het verwijderen uit het document:

 ab.Delete

Tip: Als het nodig is dat Windows aankomende gebeurtenissen verwerkt (vaak KeepWindowsAlive genoemd) binnen een macro, kun je dit forceren door de volgende VBA-functie te gebruiken:

DoEvents

Dit kan bijvoorbeeld nodig zijn als het besturingselement zichzelf nieuw moet tekenen.