Standard oder höher

Word
Barcode Objekte mit VBA verwenden

Barcode Objekte mit VBA automatisieren in Word

1

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.