Barcodes gebruiken en automatiseren met VBA in PowerPoint

Met Visual Basic for Applications (VBA) kun je gemakkelijk veel problemen oplossen. Hier laten we kort zien hoe je met VBA een streepjescode in een PowerPoint-presentatie integreert, hoe je die gebruikt en hoe je die verwijdert.

Zo voeg je met VBA de ActiveBarcode Control in de actieve dia in:
In dit voorbeeld wordt de barcode op de opgegeven positie en grootte in de dia geplaatst. Het object kan vervolgens worden aangesproken 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")

Nu kun je de standaardeigenschappen (bijv. hoogte, breedte) van het OLE-object wijzigen met behulp van de eigenschappen van de variabele ab:

ab.Width = 200
ab.Height = 120

Nu kun je de eigenschappen en methoden van het barcodeobject gebruiken zoals je wilt:

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

Je kunt de besturing eenvoudig verwijderen uit de macro/slide als je deze niet meer nodig hebt, bijvoorbeeld na het afdrukken:

 ab.Delete

Tip: Als het nodig is dat Windows aankomende gebeurtenissen verwerkt (vaak KeepWindowsAlive genoemd) binnen een macro, kun je dit forceren door de volgende VBA-functie te gebruiken:

DoEvents

Dit kan bijvoorbeeld nodig zijn als het besturingselement zichzelf nieuw moet tekenen.