VBA ile barkodları kullanma ve otomatikleştirme Word

Word'de birçok şeyi çözmek için VisualBasic for Applications (VBA) kullanabilirsiniz. Burada size ActiveBarcode kontrolünü VBA ile nasıl gömeceğinizi, kullanacağınızı ve sileceğinizi göstereceğiz:

ActiveBarcode Kontrolünü bir belgeye gömme:
Bu örnekte, imleç konumuna bir barkod kontrolü yerleştirilecektir. Daha sonra ab değişkenini kullanarak nesneyi değiştirebilirsiniz:

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

ab değişkenini kullanarak nesnenin standart özelliklerini (yükseklik, genişlik) ayarlayın:

ab.Width = 200
ab.Height = 120

Barkod nesnesinin özelliklerine ve metotlarına OLEFormat.Object özelliğini kullanarak erişebilirsiniz:

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

Ayrıca, abObject adında bir değişken oluşturup kullanarak özelliklere erişmek için daha temiz bir yol kullanabilirsiniz:

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

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

Aşağıdaki çağrıyı kullanarak barkod nesnesini bir InlineShape'e dönüştürebilirsiniz. Dönüştürme işleminden sonra barkodu değiştiremeyeceğinizi unutmayın.

ab.ConvertToShape

Kontrole artık ihtiyacınız yoksa belgeden silebilirsiniz:

 ab.Delete

İpucu: Windows'un yaklaşan olayları (genellikle KeepWindowsAlive olarak adlandırılır) bir makro içinde işlemesi gerekiyorsa, aşağıdaki VBA işlevini kullanarak bunu zorlayabilirsiniz:

DoEvents

Bu, örneğin Kontrolün kendisini yeni çizmesi gerekiyorsa gerekli olabilir.