エクセルマクロで、バーコードを作成したいです。

' 現在ｾﾙにﾊﾞｰｺｰﾄﾞを貼付ける
ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _
Link:=False, DisplayAsIcon:=False, _
Left:=lngLeft, Top:=lngTop, Width:=intWidth, _
height:=intHeight).Select
Set objOLEObject = Selection
Set objBarCode = objOLEObject.Object
With objOLEObject
.Visible = False ' 一旦消去
.Placement = 2
' .LinkedCell = Cells(GYO, 1).Address '
.Visible = True ' 表示
End With
With objBarCode
.Style = 2 '
.SubStyle = 0
.Validation = 1 '
.ShowData = 0 '
.Value = Cells(GYO, 1).Value
.Refresh
End With
Cells(GYO, 2).FormulaR1C1 = "=LEFT(RC1,7)&"" ""&RIGHT(RC1,6)"
GYO = GYO + 1
Loop
Cells(1, 1).Select

xlAPP.Interactive = True
xlAPP.Calculation = xlCalculationAutomatic
xlAPP.ScreenUpdating = True
Exit Sub

ERROR_EXIT:
xlAPP.Interactive = True
xlAPP.Calculation = xlCalculationAutomatic
xlAPP.ScreenUpdating = True
MsgBox Err.Description
End Sub