タイトル : Re: エクセルへのバーコードオブジェクトの追加について 投稿日 : 2012/05/10(Thu) 20:04 投稿者 : 魔界の仮面弁士
> .Style = 1 > .Value = "123456789" Style = 1 って、UPC-E のことですよね。 何故 9桁の値を設定しているのでしょうか? http://msdn.microsoft.com/ja-jp/library/cc427155.aspx > オブジェクトはこのプロパティまたはメソッドをサポートしておりません。 ActiveX コントロールによって提供されるプロパティにアクセスするには、 http://msdn.microsoft.com/ja-jp/library/cc427149.aspx Object プロパティを使う必要があります。 > vb6の参照設定に「MicrosoftExcel11.0 Object Library」を追加、 > コンポーネントに「microsoft Access Barcode Control9.0」を追加 > しています。 「Microsoft Excel 14.0 Object Library」参照設定+ 「Microsoft Access Barcode Control 14.0」コンポーネントで実験。 Dim xlApp As Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet Set xlApp = CreateObject("Excel.Application") 'Set xlApp = New Excel.Application Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) xlApp.Visible = True Dim objBarCode As Object Set objBarCode = xlSheet.OLEObjects.Add( _ ClassType:="BARCODE.BarCodeCtrl", _ Left:=50, Top:=13, Width:=215, Height:=110) objBarCode.Visible = False objBarCode.object.Style = 1 objBarCode.object.Validation = 2 objBarCode.object.Value = "09876547" objBarCode.Visible = True |