Utilisation et automatisation des codes à barres avec VBA dans PowerPoint

Vous pouvez facilement résoudre beaucoup de choses avec VisualBasic for Applications (VBA). Ici, nous vous montrons brièvement, comment intégrer l'objet de code à barres dans une présentation PowerPoint en utilisant VBA, l'utiliser, et le supprimer à nouveau:

Il s'agit de savoir 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 alors ê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 (p. ex. hauteur, largeur) de l'objet OLE en utilisant les propriétés 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 à l'aide de la propriété "OLEFormat.Object". Voici quelques exemples :

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

Si vous n'avez plus besoin du contrôle dans la macro/slide (par exemple, après l'impression), vous pouvez facilement l'enlever :

 ab.Delete

Astuce: S'il est nécessaire pour Windows de traiter les événements en attente dans une macro entre les deux (souvent aussi appelé "KeepWindowsAlive"), vous pouvez forcer cela en utilisant la fonction VBA suivante:

DoEvents

Cela peut être nécessaire, par exemple, si le contrôle doit se redessiner.