タイトル : エクセルへのバーコードオブジェクトの追加について 投稿日 : 2012/05/10(Thu) 18:09 投稿者 : ガオ
お世話になります。 VB6からエクセルにバーコードを動的に貼り付けたいです。 vb6の参照設定に「MicrosoftExcel11.0 Object Library」を追加、 コンポーネントに「microsoft Access Barcode Control9.0」を追加 しています。 以下のようなコードをボタンイベントに記述しています。 Dim objBarCode As Object ' Excel の起動処理 'オブジェクトへの参照を格納する変数を宣言(事前バインディング) Dim xlApp As Excel.Application '転載禁止 Dim xlBook As Excel.Workbook '転載禁止 Dim xlSheet As Excel.Worksheet '転載禁止 '変数にオブジェクトの参照を代入します。 '新規 workbookとworksheet オブジェクトを作成します。 Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Add Set xlSheet = xlBook.Worksheets(1) '1 の代わりにシート名でも可 '================================================================== 'Excel 操作部分 'エクセルを表示します。(非表示でも動作します) xlApp.Visible = True Set objBarCode = xlBook.ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _ Link:=False, DisplayAsIcon:=False, _ Left:=lngLeft, Top:=lngTop, Width:=intWidth, _ Height:=intHeight) With objBarCode .Visible = False .Style = 1 .Value = "123456789" .Visible = True End With 上記コードで「.Stype=1」の部分で以下のエラーがでます。 実行時エラー’438’ オブジェクトはこのプロパティまたはメソッドをサポートしておりません。 .Style部分以降、エラーが出る箇所をコメントにすると、エクセルが開いて 白いコントロールがシート上に張り付いてるので、コントロールの生成自体は できているようです。 どのように修正すればよろしいでしょうか。 ご教示のほど、よろしくお願いしますm(__)m。 |