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
コメント(0件)