Word
Barcode Objekte mit VBA verwenden

Barcode Objekte mit VBA automatisieren in Word

Sie können mit VisualBasic for Applications (VBA) viele Dinge einfach lösen. Hier zeigen wir Ihnen kurz, wie Sie einen Control mittels VBA in ein Word Dokument einbinden, verwenden und wieder entfernen:

So fügen Sie den ActiveBarcode Control mittels VBA in das aktuelle Dokument ein:
In diesem Beispiel wird der Barcode an der Cursorposition eingefügt. Das Objekt können wir dann über "ab" ansprechen:

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

Nun können Sie die Standard-Eigenschaften (z.B. Höhe, Breite) des OLE Objekts über die Properties der Variable "ab" steuern:

ab.Width = 200
ab.Height = 120

Auf die Properties und Methoden des Barcode Objekts können Sie über die Eigenschaft "OLEFormat.Object" zugreifen:

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

Für den direkten und übersichtlicheren Zugriff auf die Properties des ActiveBarcode Controls können Sie sich auch eine Variable, z.B. mit dem Namen "abObject" erstellen und darüber die Properties setzen:

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

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

Mittels folgendem Aufruf können Sie das Barcode Objekt in ein InlineShape umwandeln. Beachten Sie jedoch, dass Sie nach der Umwandlung den Barcode nicht mehr ändern können.

ab.ConvertToShape

Wenn Sie den Control nicht mehr innerhalb des Makros benötigen (z.B. nach einem Ausdruck), können Sie diesen auch leicht wieder entfernen:

 ab.Delete

Tipp: Sollte es nötig sein, dass Windows in einem Makro zwischendurch anstehende Events abarbeiten soll (häufig auch "KeepWindowsAlive" genannt), können Sie dies durch die folgende VBA Funktion erzwingen:

DoEvents

Dies kann z.B. notwendig sein, wenn der Control sich neu zeichnen muss.