使用 VBA 和自动处理条形码 PowerPoint

使用 Visual Basic for Applications (VBA)，您可以轻松解决许多问题。在此，我们将向您简要介绍如何使用 VBA 将条形码集成到 PowerPoint 演示文稿中、如何使用条形码以及如何删除条形码。

这就是如何使用 VBA 将 ActiveBarcode 控件插入活动幻灯片：
在此示例中，条形码被放置在幻灯片中指定的位置和大小。然后可通过 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")

现在，您可以使用变量 ab 的属性更改 OLE 对象的标准属性（如高度、宽度）：

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

这可能是必要的，例如，如果控件必须重新绘制。