endeesfritpt

Word
Objets code-barres avec VBA

Utilisation et automatisation des codes à barres avec VBA dans Word

1

Vous pouvez utiliser VisualBasic for Applications (VBA) pour résoudre beaucoup de choses dans Word. Ici, nous allons vous montrer comment intégrer, utiliser et supprimer le contrôle ActiveBarcode avec VBA:

Intégration du contrôle ActiveBarcode dans un document :
Dans cet exemple, un contrôle de code à barres sera placé à la position des curseurs. Ensuite, vous pouvez modifier l'objet en utilisant la variable 'ab':

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
Définir les propriétés standard (hauteur, largeur) de l'objet à l'aide de la variable 'ab':
ab.Width = 200
ab.Height = 120
Vous pouvez accéder aux propriétés et méthodes de l'objet de code à barres en utilisant la propriété "OLEFormat.Object":
ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"
Vous pouvez également utiliser un moyen plus propre d'accéder aux propriétés en créant et en utilisant une variable, par exemple nommée «abObject»:
Dim abObject As Object
With ab.OLEFormat
.Activate
Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"
En utilisant l'appel suivant, vous pouvez lancer l'objet de code à barres dans un InlineShape. Notez, cependant, que vous pouvez modifier le code à barres plus après la conversion.
ab.ConvertToShape
Si vous n'avez plus besoin du contrôle, vous pouvez le supprimer du document :
 ab.Delete
Astuce: S'il est nécessaire que Windows traiter les événements à venir (souvent nommé comme "KeepWindowsAlive") dans une macro, vous pouvez forcer cela en utilisant la fonction VBA suivante:
DoEvents
Cela peut être nécessaire, par exemple si le Contrôle doit se dessiner à nouveau.