Использование и автоматизация штрих-кодов с помощью 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

Это может потребоваться, например, если элемент управления должен перерисовать себя заново.