Barcode Objekte mit VBA automatisieren in Word

Sie können VisualBasic for Applications (VBA) verwenden, um viele Aufgaben in Word zu lösen. Hier zeigen wir Ihnen, wie Sie das ActiveBarcode-Steuerelement mit VBA einbetten, verwenden und löschen können:

Einbetten des ActiveBarcode Controls in ein Dokument:
In diesem Beispiel wird ein Barcode-Steuerelement an der Position des Cursors platziert. Dann können Sie das Objekt über die Variable ab ändern:

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

Setzen Sie die Standardeigenschaften (Höhe, Breite) des Objekts mit Hilfe der Variablen ab:

ab.Width = 200
ab.Height = 120

Sie können auf die Eigenschaften und Methoden des Barcode-Objekts zugreifen, indem Sie die Eigenschaft OLEFormat.Object verwenden:

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

Sie können auch eine sauberere Methode verwenden, um auf die Eigenschaften zuzugreifen, indem Sie eine Variable erstellen und verwenden, z.B. mit dem Namen abObject:

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

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

Mit dem folgenden Aufruf können Sie das Barcode-Objekt in ein InlineShape umwandeln. Beachten Sie, dass Sie den Barcode nach der Konvertierung nicht mehr ändern können.

ab.ConvertToShape

Wenn Sie das Steuerelement nicht mehr benötigen, können Sie es aus dem Dokument löschen:

 ab.Delete

Tipp: Wenn es erforderlich ist, dass Windows anstehende Ereignisse (oft als "KeepWindowsAlive" bezeichnet) innerhalb eines Makros verarbeitet, können Sie dies mit der folgenden VBA-Funktion erzwingen:

DoEvents

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