Standard oder höher

PowerPoint
Barcode Objekte mit VBA verwenden

Barcode Objekte mit VBA automatisieren in PowerPoint

1

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.