FAQ TBarCode OCX
如何在 Word VBA 中以编程方式添加条码控件？
如何在 Word VBA 中以编程方式添加条码控件？
示例代码：
Dim barcodeShape As InlineShape
' switch to design mode (optional)
' ActiveDocument.ToggleFormsDesign
' Insert barcode object at actual position in document
Set barcodeShape = Selection.InlineShapes.AddOLEControl(ClassType:="TBarCode10.TBarCode10.1")
' change size
barcodeShape.Width = 200
barcodeShape.Height = 100
' adjust barcode properties programmatically
barcodeShape.OLEFormat.Object.Barcode = 20 ' 20 = Code-128
barcodeShape.OLEFormat.Object.Text = "Hello"
“AddOLEControl”函数可接受第二个参数，该参数可以是一个 Range 对象，用于指定条码控件的放置位置。