- 01: 名前:ひかる子投稿日:2007/06/22(金) 18:23
- OS:XP Pro SP2
VISIO2002
題名の通りです。。。
VB.netからVisioを開き、
バーコード(Microsoft Access Barcode Contlor9.0を使用)を作成しました。
さらにVB.net側からバーコードの値を設定したいのですが、
「型 'ShapeClass' でパブリック メンバ 'Value' が見つかりません。」
となってしまいます。
どなたかご教授下さい。
- 02: 名前:yoda投稿日:2007/06/23(土) 08:18
- もうちょっと、具体的にお願いします。
- 03: 名前:ひかる子投稿日:2007/06/25(月) 09:14
- レスが遅くなってしまい申し訳ありません。
下記にVBのコード例を載せます。
バージョンはVB.net2003です。
Private Sub btnVisio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnVisio.Click
Dim appVisio As Visio.Application 'Instance of Visio
Dim docsObj As Visio.Documents 'Documents collection of instance
Dim docObj As Visio.Document 'Document to work in
Dim stnObj As Visio.Document 'Stencil that contains master
Dim mastObj As Visio.Master 'Master to drop
Dim pagsObj As Visio.Pages 'Pages collection of document
Dim pagObj As Visio.Page 'Page to work in
Dim shpObj As Visio.Shape 'Instance of master on page
'Visio起動
appVisio = CreateObject("visio.application")
docsObj = appVisio.Documents
'任意のVisioファイルを開く
docObj = docsObj.Add(Me.txtAA.Text)
'ページ指定
pagsObj = appVisio.ActiveDocument.Pages
pagObj = pagsObj.Item(1)
'ステンシルを開く
stnObj = docsObj.Open("D:\TEST\test.vss")
'ユーザ名
mastObj = stnObj.Masters("SQUARE1")
shpObj = pagObj.Drop(mastObj, 40 / 25.4, 266.5 / 25.4)
shpObj.Cells("BeginX").Formula = "40mm"
shpObj.Cells("BeginY").Formula = "266.5mm"
shpObj.Text = Me.txtBB.Text
'バーコード
mastObj = stnObj.Masters("BARCODE")
shpObj = pagObj.Drop(mastObj, 105.25 / 25.4, 237.5 / 25.4)
shpObj.Cells("BeginX").Formula = "105.25mm"
shpObj.Cells("BeginY").Formula = "237.5mm"
shpObj.Value = 1234567890
'保存
docObj.SaveAs("D:\TEST\" & Me.txtAA.Text & ".vsd")
stnObj.SaveAs("D:\TEST\test.vss")
'終了
appVisio.Quit()
End Sub
上記のバーコードの部分で、バーコードの作成には成功したのですが、
バーコードの値をVB側から指定することが出来ません。
バーコードはコード39を使っています。
値が指定できないので表示がスタート文字とストップ文字だけになってしまいます。
最初に言っていたエラーは
「 shpObj.Value = 1234567890」
の部分で起きます。
以上についてアドバイス宜しくお願いします。
- 04: 名前:yoda投稿日:2007/06/25(月) 10:54
- Visioのshapeには、Valueプロパティは、ないと思います。
■トップに戻る リロード 単独スレ表示
|