KoMaDo   VISIO SQUARE : VB/VBA  ■ Headline ■ HOME    

VB/VBAトップへ ▼カッ飛び最後 

  ステンシル・メニュー「編集」の制御について

01: 名前:キュー太郎投稿日:2002/02/22(金) 11:22
「あるメニューのボタンを押されると、
選択されているシェイプをマスター・シェイプとしてステンシルに登録する」
という処理をVBAで書きたいのですが、
ステンシルが読み取り専用で開かれている場合に、
エラーになってしまいます。
ステンシルの制御は、
どのようなコーディング(VBA)をすれば良いのでしょうか?

・読み取り専用で開かれているステンシルを「編集」状態にする。
(赤い*の状態)
・ステンシルを「編集」状態から元に戻す。

※オブジェクト・ブラウザの中で、
定数:visCmdStenEditOn(Visio.VisUICmds のメンバ)
という怪しいものを見つけたのですが、
使い方が分かりません。(全然関係が無いかもしれませんが)

VISIO初心者ですので、どなたかアドバイスをお願いします。(とっても困ってます・・・)
部分的なものでも構いません。

02: 名前:Q太郎投稿日:2007/08/08(水) 15:26
これって、出来ないんでしょうか?
1つのステンシルファイルに任意作成のボタンが押される度にシンボルを登録する
VBAを作成しているのですが、同様につまずいています。

どなたか、アイデアはありませんか?

03: 名前:visGeek投稿日:2007/08/08(水) 19:46
一度Closeして、OpenExで
visOpenRW付きで再度開くというのはどうでしょうか。

04: 名前:Q太郎投稿日:2007/08/09(木) 10:46
解決策、ありがとうございます!

テンプレートを使用しているので、ステンシルを閉じた状態で保存し、
再度開いたときにマクロからvisOpenRW付きで開くようにしました。

Private Sub Document_DocumentCreated(ByVal doc As IVDocument)
Application.Documents.OpenEx "xxx.vss", visOpenRW + visOpenDocked
End Sub


VB/VBAトップへ ▲カッ飛び先頭