Använda och automatisera streckkoder med VBA i PowerPoint

Med Visual Basic for Applications (VBA) kan du enkelt lösa många problem. Här visar vi kortfattat hur du integrerar en streckkod i en PowerPoint-presentation med hjälp av VBA, hur du använder den och hur du tar bort den.

Så här infogar du ActiveBarcode Control i den aktiva bilden med hjälp av VBA:
I det här exemplet placeras streckkoden på den angivna positionen och i den angivna storleken på bilden. Objektet kan sedan adresseras 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 kan du ändra standardegenskaperna (t.ex. höjd, bredd) för OLE-objektet med hjälp av egenskaperna för variabeln ab:

ab.Width = 200
ab.Height = 120

Nu kan du använda egenskaperna och metoderna för streckkodsobjektet som du vill:

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

Du kan enkelt ta bort kontrollen från makrot/bilden om du inte längre behöver den, till exempel efter utskrift:

 ab.Delete

Tips: Om Windows behöver bearbeta kommande händelser (ofta kallat KeepWindowsAlive) inom ett makro kan du tvinga fram detta genom att använda följande VBA-funktion:

DoEvents

Detta kan vara nödvändigt, t.ex. om kontrollen måste rita om sig själv.