'**********************************************************************
' @(f)
'
'機能 : バーコードを作成
'
'返り値 :
'
'引き数 :
'
'機能説明:
'
'備考 :
'
'**********************************************************************
Private Function PF_CreateBarcode(ByVal ExcelUtil_eu As ExcelUtil, ByVal CurrentCell As String, ByVal Top_i As Integer, ByVal left_i As Integer)
ExcelUtil_eu.m_xApp.ScreenUpdating = False
ExcelUtil_eu.m_xApp.Calculation = Excel.XlCalculation.xlCalculationManual
ExcelUtil_eu.m_xApp.Interactive = False
System.Windows.Forms.Application.DoEvents()
ExcelUtil_eu.m_xSheet.OLEObjects.Add(ClassType:="BARCODE.BarcodeCtrl.1", Link:=True, _
DisplayAsIcon:=False, Width:=200, Height:=250, Top:=Top_i, _
Left:=left_i)
Dim MyBarcode As String
Dim objBarCode As BARCODELib.BarCodeCtrl
MyBarcode = ExcelUtil_eu.m_xSheet.Shapes.Item(ExcelUtil_eu.m_xSheet.Shapes.Count).Name
Dim ole As Excel.OLEObject
ole = ExcelUtil_eu.m_xSheet.OLEObjects(MyBarcode)
With ole
.AutoLoad = True
.PrintObject = True
.Visible = False
.Placement = 2
.LinkedCell = CurrentCell
.Visible = True
End With
objBarCode = ole.Object
With objBarCode
.Style = 5 ' 5:NW-7
.SubStyle = 0
.Validation = 0 ' C/D修正有り
.ShowData = 1 ' 数値表示
.Value = "a" & ExcelUtil_eu.m_xSheet.Range(CurrentCell).Value & "a"
.Refresh()
End With
ExcelUtil_eu.m_xSheet.m_xApp.Interactive = True
ExcelUtil_eu.m_xSheet.m_xApp.Calculation = Excel.XlCalculation.xlCalculationAutomatic
ExcelUtil_eu.m_xSheet.m_xApp.ScreenUpdating = True
End Function
本博版权所有!转载注明出处!