VBA生成条形码

'废话不多少，上代码
'/需要在工具引用中，加入(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