Word
Objets code-barres avec VBA

Utilisation et automatisation des codes à barres avec VBA dans Word

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.