Barcode Objekte mit VBA automatisieren in PowerPoint

Mit Visual Basic for Applications (VBA) können Sie viele Probleme einfach lösen. Hier zeigen wir Ihnen kurz, wie Sie mit VBA einen Barcode in eine PowerPoint-Präsentation integrieren, wie Sie ihn verwenden und wie Sie ihn wieder entfernen können.

So fügen Sie das ActiveBarcode Control mit VBA in die aktive Folie ein:
In diesem Beispiel wird der Barcode an der angegebenen Position und Größe auf der Folie platziert. Das Objekt kann dann über ab angesprochen werden:

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

Nun können Sie die Standardeigenschaften (z.B. Höhe, Breite) des OLE-Objekts über die Eigenschaften der Variablen ab ändern:

ab.Width = 200
ab.Height = 120

Nun können Sie die Eigenschaften und Methoden des Barcode-Objekts nach Belieben verwenden:

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

Sie können das Steuerelement einfach aus dem Makro/Folie entfernen, wenn Sie es nicht mehr benötigen, z. B. nach dem Drucken:

 ab.Delete

Tipp: Wenn es erforderlich ist, dass Windows anstehende Ereignisse (oft als KeepWindowsAlive bezeichnet) innerhalb eines Makros verarbeitet, können Sie dies mit der folgenden VBA-Funktion erzwingen:

DoEvents

Dies kann notwendig sein, z.B. wenn sich das Control neu zeichnen muss.