VBA ile barkodları kullanma ve otomatikleştirme PowerPoint

Visual Basic for Applications (VBA) ile birçok sorunu kolayca çözebilirsiniz. Burada, VBA kullanarak bir barkodu PowerPoint sunumuna nasıl entegre edeceğinizi, nasıl kullanacağınızı ve nasıl kaldıracağınızı kısaca gösteriyoruz.

ActiveBarcode Kontrolünün VBA kullanılarak etkin slayta nasıl ekleneceği aşağıda açıklanmıştır:
Bu örnekte, barkod slaytın içine belirtilen konumda ve boyutta yerleştirilir. Nesne daha sonra ab aracılığıyla adreslenebilir:

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

Artık ab değişkeninin özelliklerini kullanarak OLE nesnesinin standart özelliklerini (örn. yükseklik, genişlik) değiştirebilirsiniz:

ab.Width = 200
ab.Height = 120

Artık barkod nesnesinin özelliklerini ve metotlarını istediğiniz gibi kullanabilirsiniz:

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

Artık ihtiyacınız yoksa, örneğin yazdırdıktan sonra kontrolü makrodan/slayttan kolayca kaldırabilirsiniz:

 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.