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

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

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

回答(0件)

回答はまだありません

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

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

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

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

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