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

ניתן להשתמש ב-VisualBasic for Applications (VBA) כדי לפתור בעיות רבות ב-Word. כאן נראה לכם כיצד להטמיע, להשתמש ולמחוק את בקרת ActiveBarcode באמצעות VBA:

הטמעת בקרת ActiveBarcode במסמך:
בדוגמה זו, בקרת ברקוד תוצב במיקום הסמן. לאחר מכן, תוכל לשנות את האובייקט באמצעות המשתנה ab:

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

הגדר את המאפיינים הסטנדרטיים (גובה, רוחב) של האובייקט באמצעות המשתנה ab:

ab.Width = 200
ab.Height = 120

ניתן לגשת למאפיינים ולשיטות של אובייקט הברקוד באמצעות המאפיין OLEFormat.Object:

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

ניתן גם להשתמש בשיטה נקייה יותר כדי לגשת למאפיינים על ידי יצירת משתנה ושימוש בו, למשל בשם abObject:

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

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

באמצעות הקריאה הבאה תוכל להטיל את אובייקט הברקוד ב-InlineShape. שים לב, שלא ניתן לשנות את הברקוד לאחר ההמרה.

ab.ConvertToShape

אם אינך זקוק עוד לשליטה, תוכל למחוק אותה מהמסמך:

 ab.Delete

רמז: אם יש צורך ש-Windows יעבד אירועים עתידיים (המכונים לעתים קרובות KeepWindowsAlive) בתוך מאקרו, ניתן לכפות זאת באמצעות הפונקציה VBA הבאה:

DoEvents

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