Brug og automatisering af stregkoder med VBA i PowerPoint

Med Visual Basic for Applications (VBA) kan du nemt løse mange problemer. Her viser vi dig kort, hvordan du integrerer en stregkode i en PowerPoint-præsentation ved hjælp af VBA, hvordan du bruger den, og hvordan du fjerner den.

Sådan indsættes ActiveBarcode Control i det aktive dias ved hjælp af VBA:
I dette eksempel placeres stregkoden på den angivne position og i den angivne størrelse på diaset. Objektet kan derefter adresseres 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 ændre standardegenskaberne (f.eks. højde, bredde) for OLE-objektet ved hjælp af egenskaberne for variablen ab:

ab.Width = 200
ab.Height = 120

Nu kan du bruge stregkodeobjektets egenskaber og metoder, som du vil:

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

Du kan nemt fjerne kontrollen fra makroen/dias, hvis du ikke længere har brug for den, f.eks. efter udskrivning:

 ab.Delete

Tip: Hvis det er nødvendigt for Windows at behandle kommende begivenheder (ofte benævnt KeepWindowsAlive) inden for en makro, kan du tvinge dette ved hjælp af følgende VBA-funktion:

DoEvents

Dette kan være nødvendigt, f.eks. hvis kontrolelementet skal tegne sig selv på ny.