KoMaDo   VISIO SQUARE : VB/VBA  ■ Headline ■ HOME    

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

  ステンシルでのマクロ起動

01: 名前:T,T投稿日:2007/08/24(金) 01:39
VISIO講座の第三回そのままなのですが
ステンシルにマクロを組んで、マスターシェープをドラック&ドロップ
したときにマクロを呼びたいのですが、どのような設定をしたら
いいのでしょうか? シェープ名を そのままsub の名前にしても
動かないようですし、よろしくお願いします。

02: 名前:yoda投稿日:2007/08/24(金) 06:07
[シェープ名を そのままsub の名前にしても]は、どういう意味でしょうか?

03: 名前:T.T投稿日:2007/08/24(金) 06:32
質問が分かりにくくてすみません
例えばVisioToolbox.vssで
マスターシェープのプロパティでマスターシェープ名が
Clear Shapeだった場合
ThisDocumentに手入力で
Public Sub ClearShape(visObj As Visio.Shape)
と入れても、シェープのドロップ時にその関数に入って来ない
ということです、なにか設定が抜けているんだと思いますが
その方法がわかりません

使用しているVisioは2000です

よろしくお願いします。

04: 名前:yoda投稿日:2007/08/24(金) 07:30
基本的におかしいような気がします。
一番簡単な方法は、VBAエディターのThisDocumentモジュールに、
ShapeAddedイベントプロシージャを作ることです。
VBAエディタの左側のプロジェクト エキスプローラで、
図面のプロジェクトのThgisDocumentをダブルクリックし、
ThisDocumentがエディター画面に表示されたら、
上の左側のリストボックスから、Documentを選び、
右側のリストボックスから、ShapeAddedを選ぶと、
以下のようなイベントプロシージャができます。
Private Sub Document_ShapeAdded(ByVal Shape As IVShape)

End Sub

05: 名前:T.T投稿日:2007/08/24(金) 23:07
yoda様
初心者にもわかる様に親切丁寧に教えてくださり
ありがとうございました。

当初考えていたものとは少々違いますが
yoda様のご教示されたものの方が
汎用性がありますね


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