שימוש ואוטומציה של ברקודים באמצעות VBA ב- PowerPoint

בעזרת Visual Basic for Applications (VBA) תוכלו לפתור בקלות בעיות רבות. כאן נציג בקצרה כיצד לשלב ברקוד במצגת PowerPoint באמצעות VBA, כיצד להשתמש בו וכיצד להסיר אותו.

כך ניתן להוסיף את ActiveBarcode Control לשקופית הפעילה באמצעות 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

זה יכול להיות הכרחי, למשל, אם ה-Control צריך לצייר את עצמו מחדש.