Viivakoodien käyttö ja automatisointi VBA:lla Word

VisualBasic for Applications (VBA) -sovelluksella voit ratkaista monia ongelmia Wordissa. Tässä näytämme, kuinka ActiveBarcode-ohjausobjekti upotetaan, käytetään ja poistetaan VBA:n avulla:

ActiveBarcode-ohjausobjektin upottaminen asiakirjaan:
Tässä esimerkissä viivakoodiohjain sijoitetaan kohdistimen kohdalle. Sitten voit muokata objektia muuttujan ab avulla:

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
  FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

Aseta objektin vakiominaisuudet (korkeus, leveys) muuttujan ab avulla:

ab.Width = 200
ab.Height = 120

Voit käyttää viivakoodiobjektin ominaisuuksia ja menetelmiä käyttämällä ominaisuutta OLEFormat.Object:

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

Voit myös käyttää siistimpää tapaa päästä käsiksi ominaisuuksiin luomalla ja käyttämällä muuttujaa, esimerkiksi nimeltään abObject:

Dim abObject As Object
With ab.OLEFormat
  .Activate
  Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"

Seuraavalla kutsulla voit muuntaa viivakoodiobjektin InlineShape-muotoon. Huomaa, että viivakoodia ei voi muuttaa muuntamisen jälkeen.

ab.ConvertToShape

Jos et enää tarvitse ohjausobjektia, voit poistaa sen asiakirjasta:

 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.