質問: excelの microsoft バーコードコントロール 14.0 excelのvbaを使って、バーコード、下記のようなデータを入れたら、 画面上にバーコードを表示、と同時に印刷をして、バーコードリーダーで 読み取ることを可能にしたいと考えております。 データ: 「123456789012」 12桁の数値 セルに12桁の数値を入れて、適当なボタンを押すと、数値の入ったセルの下方に バーコード表示させる、といったイメージです。 pcには、microsoft バーコードコントロール 14.0が入っておりました。 これを選択すると、マウスが+になり、シート上でクリックすると 確かにバーコードが現れるのですが、不明なデータです。 どこをどのように変えれば、データが変わるのかも、よくわかりません。 結局、「microsoft バーコードコントロール 14.0」の使い方がわかっていないのです。 宜しく、ご教示願います。
回答: sub macro1() dim o as oleobject with cells(2, 1) set o = activesheet.oleobjects.add(classtype:="barcode.barcodectrl.1", _ link:=false, displayasicon:=false, _ left:=.left, top:=.top, width:=.width, height:=.height) o.linkedcell = .offset(-1).address end with end sub