Menggunakan dan mengotomatisasi barcode dengan VBA di Word

Anda dapat menggunakan Visual Basic for Applications (VBA) untuk menyelesaikan banyak hal di Word. Di sini kami akan menunjukkan kepada Anda cara menyisipkan, menggunakan, dan menghapus kontrol ActiveBarcode dengan VBA:

Menyisipkan Kontrol ActiveBarcode ke dalam dokumen:
Dalam contoh ini, kontrol barcode akan ditempatkan di posisi kursor. Kemudian Anda dapat memodifikasi objek menggunakan variabel ab:

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

Tentukan properti standar (tinggi, lebar) objek menggunakan variabel ab:

ab.Width = 200
ab.Height = 120

Anda dapat mengakses properti dan metode objek barcode dengan menggunakan properti OLEFormat.Object:

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

Anda juga dapat menggunakan cara yang lebih bersih untuk mengakses properti dengan membuat dan menggunakan variabel, misalnya bernama abObject:

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

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

Dengan menggunakan panggilan berikut, Anda dapat mengubah objek barcode menjadi InlineShape. Perhatikan bahwa Anda tidak dapat mengubah barcode setelah konversi.

ab.ConvertToShape

Jika Anda tidak memerlukan kontrol tersebut lagi, Anda dapat menghapusnya dari dokumen:

 ab.Delete

Tips: Jika Windows perlu memproses peristiwa yang akan datang (sering disebut sebagai KeepWindowsAlive) dalam sebuah makro, Anda dapat memaksakan hal ini dengan menggunakan fungsi VBA berikut:

DoEvents

Hal ini mungkin diperlukan, misalnya jika Kontrol harus menggambar dirinya sendiri ulang.