KoMaDo   VISIO SQUARE : VISIO全般  ■ Headline ■ HOME    

VISIO全般トップへ ▼カッ飛び最後 

  選択されているシェイプのID番号を取得する方法

01: 名前:Visio初心者投稿日:2007/08/07(火) 16:01
VISIO VBAの初心者です。

VBAマクロにて図面上で選択されているシェイプのID番号を取得したいのですが、うまくいきません。
これは、記述したマクロをです。
  ShapeID = Application.ActiveWindow.Shape.ID
これだと、シェイプシートが表示されていないと"0"が戻ってきます。
(シェイプシートが表示されていると、IDは取得できます。)

シェイプシートが表示されていない状態で、図面上で選択されているシェイプのID番号
をVBAにて取得する方法を教えてください。

02: 名前:visGeek投稿日:2007/08/07(火) 20:45
ActiveWindow.Selection(1).ID
でどうぞ。

03: 名前:Visio初心者投稿日:2007/08/08(水) 09:12
visGeekさん、早速のレスありがとうございます。

非常に助かりました。
基本中の基本すぎてか、ネット検索でヒットせず困っていたところでした。
マクロ自動記録+ネット検索では、限度があるみたいです。


VISIO全般トップへ ▲カッ飛び先頭