Menggunakan dan mengotomatisasi barcode dengan VBA di PowerPoint

Dengan Visual Basic for Applications (VBA), Anda dapat dengan mudah menyelesaikan banyak masalah. Di sini, kami akan menunjukkan kepada Anda secara singkat cara mengintegrasikan kode batang ke dalam presentasi PowerPoint menggunakan VBA, cara menggunakannya, dan cara menghapusnya.

Inilah cara memasukkan ActiveBarcode Control ke dalam slide aktif menggunakan VBA:
Dalam contoh ini, barcode ditempatkan pada posisi dan ukuran yang ditentukan di slide. Objek tersebut kemudian dapat diakses melalui 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")

Sekarang Anda dapat mengubah properti standar (misalnya tinggi, lebar) objek OLE menggunakan properti variabel ab:

ab.Width = 200
ab.Height = 120

Sekarang Anda dapat menggunakan properti dan metode objek barcode sesuka Anda:

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

Anda dapat dengan mudah menghapus kontrol dari makro/slide jika Anda tidak membutuhkannya lagi, misalnya setelah mencetak:

 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.