استخدام الباركود وأتمتته باستخدام VBA في PowerPoint

باستخدام Visual Basic for Applications (VBA)، يمكنك حل العديد من المشكلات بسهولة. هنا، نعرض لك بإيجاز كيفية دمج رمز شريطي في عرض PowerPoint التقديمي باستخدام VBA، وكيفية استخدامه، وكيفية إزالته.

فيما يلي كيفية إدراج عنصر التحكم ActiveBarcode في الشريحة النشطة باستخدام VBA:
في هذا المثال، يتم وضع الرمز الشريطي في الموضع والحجم المحددين في الشريحة. يمكن بعد ذلك التعامل مع الكائن عبر 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")

الآن يمكنك تغيير الخصائص القياسية (مثل الارتفاع والعرض) لكائن OLE باستخدام خصائص المتغير ab:

ab.Width = 200
ab.Height = 120

الآن يمكنك استخدام خصائص وأساليب كائن الباركود كما تريد:

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

يمكنك بسهولة إزالة عنصر التحكم من الماكرو/الشريحة إذا لم تعد بحاجة إليه، على سبيل المثال، بعد الطباعة:

 ab.Delete

تلميح: إذا كان من الضروري أن يقوم Windows بمعالجة الأحداث القادمة (التي يشار إليها غالبًا باسم KeepWindowsAlive) داخل ماكرو، فيمكنك فرض ذلك باستخدام وظيفة VBA التالية:

DoEvents

قد يكون ذلك ضروريًا، على سبيل المثال، إذا كان على عنصر التحكم أن يرسم نفسه من جديد.