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

エクセルマクロで、バーコードを作成したいです。
Sub ShowBarCode()
Dim xlAPP As Application
Dim GYO As Long
Dim objOLEObject As OLEObject
Dim objBarCode As BARCODELib.BarCodeCtrl
Dim lngLeft As Long
Dim lngTop As Long
Dim intHeight As Integer
Dim intWidth As Integer
Dim sh As Worksheet

Set xlAPP = Application
xlAPP.ScreenUpdating = False
xlAPP.Calculation = xlCalculationManual
xlAPP.Interactive = False
On Error GoTo ERROR_EXIT
GYO = 1
Do While Cells(GYO, 1).Value <> ""
Cells(GYO, 2).Select
' 現在セルの位置を取得
With ActiveCell
lngLeft = .Left + .Width * 0.05
lngTop = .Top + 1
intHeight = .height * 0.7
intWidth = .Width * 0.9
End With

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

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

●質問をもっと探す●



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