Bruk og automatisering av strekkoder med VBA i PowerPoint

Med Visual Basic for Applications (VBA) kan du enkelt løse mange problemer. Her viser vi deg kort hvordan du integrerer en strekkode i en PowerPoint-presentasjon ved hjelp av VBA, hvordan du bruker den og hvordan du fjerner den.

Slik setter du inn ActiveBarcode Control i det aktive lysbildet ved hjelp av VBA:
I dette eksemplet plasseres strekkoden på den angitte posisjonen og størrelsen i lysbildet. Objektet kan deretter 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")

Nå kan du endre standardegenskapene (f.eks. høyde, bredde) til OLE-objektet ved hjelp av egenskapene til variabelen ab:

ab.Width = 200
ab.Height = 120

Nå kan du bruke egenskapene og metodene til strekkodeobjektet slik du ønsker:

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

Du kan enkelt fjerne kontrollen fra makroen/lysbildet hvis du ikke lenger trenger den, for eksempel etter utskrift:

 ab.Delete

Tips: Hvis det er nødvendig for Windows å behandle kommende hendelser (ofte referert til som KeepWindowsAlive) i en makro, kan du tvinge dette ved å bruke følgende VBA-funksjon:

DoEvents

Dette kan være nødvendig, f.eks. hvis kontrollen må tegne seg selv på nytt.