人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルマクロで、バーコードを作成したいです。
' 現在セルにバーコードを貼付ける
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

●質問者: at0079
●カテゴリ:コンピュータ インターネット
○ 状態 :キャンセル
└ 回答数 : 0/0件

回答がありません
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ