Utilisation et automatisation des codes à barres avec VBA dans PowerPoint

Avec Visual Basic for Applications (VBA), vous pouvez facilement résoudre de nombreux problèmes. Ici, nous vous montrons brièvement comment intégrer un code-barres dans une présentation PowerPoint à l'aide de VBA, comment l'utiliser et comment le supprimer.

Voici comment insérer le contrôle ActiveBarcode dans la diapositive active à l'aide de VBA:
Dans cet exemple, le code-barres est placé à la position et à la taille spécifiées dans la diapositive. L'objet peut ensuite être adressé via ab:

Dim ab As Shape
Set ab = Application.ActiveWindow.View.Slide.Shapes.AddOLEObject(Left:=100,
  Top:=100, Width:=300, Height:=150, ClassName:="ACTIVEBARCODE.BarcodeCtrl.1")

Vous pouvez maintenant modifier les propriétés standard (par exemple, hauteur, largeur) de l'objet OLE en utilisant les propriétés de la variable ab:

ab.Width = 200
ab.Height = 120

Vous pouvez maintenant utiliser les properties et methods de l'objet code-barres comme vous le souhaitez :

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

Vous pouvez facilement retirer le contrôle de la macro/diapositive si vous n'en avez plus besoin, par exemple après l'impression:

 ab.Delete

Conseil : s'il est nécessaire que Windows traite les événements à venir (souvent appelés "KeepWindowsAlive") dans une macro, vous pouvez le forcer en utilisant la fonction VBA suivante :

DoEvents

Cela peut s'avérer nécessaire, par exemple si le Contrôleur doit se redessiner.