tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル エクセルへのバーコードオブジェクトの追加について
投稿日: 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。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。