Bruk og automatisering av strekkoder med VBA i Word

Du kan bruke VisualBasic for Applications (VBA) til å løse mange oppgaver i Word. Her viser vi deg hvordan du kan legge inn, bruke og slette ActiveBarcode-kontrollen med VBA:

Innebygge ActiveBarcode Control i et dokument:
I dette eksemplet vil en strekkodekontroll plasseres på markørens posisjon. Deretter kan du endre objektet ved hjelp av variabelen ab:

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

Angi standardegenskapene (høyde, bredde) for objektet ved hjelp av variabelen ab:

ab.Width = 200
ab.Height = 120

Du kan få tilgang til egenskapene og metodene til strekkodeobjektet ved å bruke egenskapen OLEFormat.Object:

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

Du kan også bruke en renere måte å få tilgang til egenskapene på ved å opprette og bruke en variabel, for eksempel med navnet abObject:

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

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

Ved hjelp av følgende kall kan du kaste strekkodeobjektet i en InlineShape. Merk at du ikke kan endre strekkoden etter konverteringen.

ab.ConvertToShape

Hvis du ikke lenger trenger kontrollen, kan du slette den fra dokumentet:

 ab.Delete

Tips: Hvis det er nødvendig for Windows å behandle kommende hendelser (ofte referert til som KeepWindowsAlive) i en makro, kan du tvinge dette ved å bruke følgende VBA-funksjon:

DoEvents

Dette kan være nødvendig, f.eks. hvis kontrollen må tegne seg selv på nytt.