- 01: 名前:ぺ投稿日:2004/04/20(火) 23:07
- String Typeを HyperLink に入れる方法がありますか?
- 02: 名前:M1号投稿日:2004/04/20(火) 23:42
- shpObj.AddSection visSectionHyperlink
shpObj.AddNamedRow visSectionHyperlink, "url", 0
shpObj.Cells("Hyperlink.url.address").Formula = """http://www.yahoo.co.jp/"""
shpObjにハイパーリンクセクションを追加し行の名前を"url"とし値(飛び先)をYahooにしています。
これで分かりますか?
- 03: 名前:ぺ投稿日:2004/04/21(水) 09:53
- 申し訳ありませんが私のソースを下に書きました。
でもエラーが発生しましたけど、AddSectionは
shpObj.AddSection(Section as Integer) as Integer形じゃないですか?
Private Sub btnOK_Click()
Dim scaleSize As String
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell
Dim visSectionHyperlink As Hyperlink
shpObj.AddSection visSectionHyperlink 'Error発生
shpObj.AddNamedRow visSectionHyperlink, "url", 0
shpObj.Cells("Hyperlink.url.address").Formula = """http://www.yahoo.co.jp/"""
- 04: 名前:M1号投稿日:2004/04/21(水) 11:06
- VISIOのヘルプ-開発者用リファレンスのオートメーションの列挙型に定数一覧がありまして
visSectionHyperlinkは244(10進)となっているようです。
- 05: 名前:M1号投稿日:2004/04/21(水) 11:12
- 業務で開発なさるならyodaさんが教えてくださったMSサイトの『Visio 2000ソリューション開発ガイド』を印刷して
いつでも読めるように手元に置いておかれたほうがいいと思います。
基本的にはVisio2000でも2002でも2003でもオートメーションの考え方などは同じですから役に立つと思いますよ^^
- 06: 名前:ぺ投稿日:2004/04/21(水) 14:37
- はい、本当に^^;
あなたが言うとおりにするつもりです。
VisioとVisualBasicも始めですから。。大変ですね。ㅡㅡ;
- 07: 名前:M1号投稿日:2004/04/21(水) 18:23
- がんばってください。
■トップに戻る リロード 単独スレ表示
|