VBA生成条形码_斯乌苏

个人资料

微博

正文字体大小：大中小

VBA生成条形码

(2013-01-06 11:13:19)

标签：

'废话不多少，上代码

'/需要在工具引用中，加入(Microsoft Access BarCode Control 9.0)

Sub BarCode()

'//定义插入的OLE对象

Dim barOLEObj As OLEObject

'//定义插入的条形码对象

Dim barObj As BarCodeCtrl

'//定义条形码的值

Dim valDbl As Double

Set barOLEObj = Worksheets(1).oleObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", Link:=False _

, DisplayAsIcon:=False, Left:=0, Top:=0, Width:=210, Height _

:=75.75)

Set barObj = barOLEObj.Object

barObj.ShowData = 1 '//是否显示数字

valDbl = 2013010655555#

barObj.Value = valDbl

End Sub

阅读┊ 收藏 ┊ 喜欢 ▼ ┊打印┊举报/Report