PowerPoint
Barcode Objekte mit VBA verwenden

Barcode Objekte mit VBA automatisieren in PowerPoint

Sie können mit VisualBasic for Applications (VBA) viele Dinge einfach lösen. Hier zeigen wir Ihnen kurz, wie Sie einen Control mittels VBA in eine PowerPoint Präsentation einbinden, verwenden und wieder entfernen:

So fügen Sie den ActiveBarcode Control mittels VBA in den aktiven Slide ein:
In diesem Beispiel wird der Barcode an der vorgegebenen Postion in der einer bestimmten Größe eingefügt. Das Objekt kann man dann über "ab" ansprechen:

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 Standard-Eigenschaften (z.B. Höhe, Breite) des OLE Objekts über die Properties der Variable "ab" steuern:

ab.Width = 200
ab.Height = 120

Auf die Properties und Methoden des Barcode Objekts können Sie über die Eigenschaft "OLEFormat.Object" zugreifen. Hier ein paar Beispiele:

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

Wenn Sie den Control nicht mehr innerhalb des Makros benötigen (z.B. nach einem Ausdruck), können Sie diesen auch leicht wieder entfernen:

 ab.Delete

Tipp: Sollte es nötig sein, dass Windows in einem Makro zwischendurch anstehende Events abarbeiten soll (häufig auch "KeepWindowsAlive" genannt), können Sie dies durch die folgende VBA Funktion erzwingen:

DoEvents

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