- 01: 名前：ゆかりん投稿日：2002/11/15(金) 14:23
- マクロで設定したもをテキスト枠を透過するにはどうすればよいのでしょうか?
誰か教えて下さい。
- 02: 名前：なか投稿日：2002/11/15(金) 17:07
- 質問の意味が良く解らなかったので勝手に以下のように解釈しました。
「マクロで枠のないテキストを追加したい」
四角形をページに貼り付ける
Set shpObj = pageObj.DrowRectangle(x1, y1, x2, y2)
shpObj.Text = "マクロで枠のないテキストを追加したい"
張り付けた四角形の枠を消す。
Set cellObj = shpObj.Cells("Geometry1.NoLine")
cellObj.Formula = TRUE
張り付けた四角形の塗り潰しをなしにする。
Set cellObj = shpObj.Cells("Geometry1.NoFill")
cellObj.Formula = TRUE
だいぶ省略しましたけど、以上のことを行えば
マクロでテキストツールで挿入するのと同様のテキストが追加できるはずです。
- 03: 名前：ゆかりん投稿日：2002/11/18(月) 09:17
- 説明不足で申し訳ありません。テキスト枠の下に線を引きたいのですが､線がテキスト
枠で隠れてしまいます。テキスト枠を透過して線を見えるようにするには、
どのようにすれぼよろしのでしょうか？
- 04: 名前：あきふさ投稿日：2002/11/18(月) 09:36
- 普通の直線もテキスト枠の直線もディフォルトで描画した場合は線種が
おなじなので重なった場合はどちらの線が表示されているのかわかりません。
Visio2002なら右クリックメニューの「書式」「テキスト」から
文字の下に線を引くことはできます。
- 05: 名前：なか投稿日：2002/11/18(月) 10:39
- 以前に載せたコードに誤りがあったので再度載せときます。
Dim paeObj As Visio.Page
Dim shpObj As Visio.Shape
Dim cellObj As Visio.Cell
Set pageObj = Visio.Application.ActivePage
'四角形をページに貼り付ける
Set shpObj = pageObj.DrawRectangle(1, 1, 2, 2)
shpObj.Text = "マクロで枠のないテキストを追加したい"
'張り付けた四角形の枠を消す｡
Set cellObj = shpObj.Cells("Geometry1.NoLine")
cellObj.Formula = "True"
'張り付けた四角形の塗り潰しをなしにする｡
Set cellObj = shpObj.Cells("Geometry1.NoFill")
cellObj.Formula = "True"
以上のコードで線無し，透過のテキスト枠を作成できます。
- 06: 名前：ゆかりん投稿日：2002/11/18(月) 11:00
- ありがとうございました。早速、試してみます。
■トップに戻る リロード 単独スレ表示
|