Viivakoodien käyttö ja automatisointi VBA:lla PowerPoint

Visual Basic for Applications (VBA) -sovelluksella voit ratkaista monia ongelmia helposti. Tässä esittelemme lyhyesti, kuinka voit integroida viivakoodin PowerPoint-esitykseen VBA:n avulla, kuinka sitä käytetään ja kuinka se poistetaan.

Näin voit lisätä ActiveBarcode-ohjausobjektin aktiiviseen diaan VBA:n avulla:
Tässä esimerkissä viivakoodi sijoitetaan diaan määritettyyn kohtaan ja määritetyllä koolla. Objektia voidaan sitten osoittaa ab:n avulla:

Dim ab As Shape
Set ab = Application.ActiveWindow.View.Slide.Shapes.AddOLEObject(Left:=100,
  Top:=100, Width:=300, Height:=150, ClassName:="ACTIVEBARCODE.BarcodeCtrl.1")

Nyt voit muuttaa OLE-objektin vakiomääritteitä (esim. korkeus, leveys) muuttujan ab määritteiden avulla:

ab.Width = 200
ab.Height = 120

Nyt voit käyttää viivakoodiobjektin ominaisuuksia ja menetelmiä haluamallasi tavalla:

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

Voit poistaa ohjauspainikkeen helposti makrosta/diasta, jos et enää tarvitse sitä, esimerkiksi tulostuksen jälkeen:

 ab.Delete

Vinkki: Jos Windowsin on käsiteltävä tulevia tapahtumia (usein nimeltään KeepWindowsAlive) makron sisällä, voit pakottaa tämän käyttämällä seuraavaa VBA-funktiota:

DoEvents

Tämä voi olla tarpeen esimerkiksi silloin, kun ohjausyksikkö joutuu piirtämään itsensä uudelleen.