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

' 現在セルにバーコードを貼付ける
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

回答の条件
  • URL必須
  • 1人5回まで
  • 13歳以上
  • 登録:2012/07/20 14:14:37
  • 終了:2012/07/27 14:15:03

回答(0件)

回答はまだありません

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません