Shape プロパティ (Visio)Shape.EventList property (Visio)

オブジェクトのeventlistコレクション、またはイベントオブジェクトを含むeventlistコレクションを返します。Returns the EventList collection of an object or the EventList collection that contains an Event object. 読み取り専用です。Read-only.



Shape オブジェクトを表す変数を取得します。expression A variable that represents a Shape object.

戻り値Return value



次の Microsoft Visual Basic for Applications (VBA) マクロは、 eventlistプロパティを使用して、 Documentオブジェクトのeventlistコレクションにイベントオブジェクトを追加する方法を示しています。This Microsoft Visual Basic for Applications (VBA) macro shows how to use the EventList property to add an Event object to the EventList collection of a Document object. 図面に図形を追加することによって Event オブジェクトがトリガーされた場合、指定した VSL アドオンが実行されます。When the Event object is triggered by adding a shape to the document, the VSL add-on you specify runs.

このマクロを実行する前に、 _fullpath\filename_および_filename_への参照を、Microsoft Visio VSL または executable (EXE) アドオンの有効なパスと名前に置き換えてください。Before running this macro, replace references to fullpath\filename and filename with a valid path and name for a Microsoft Visio VSL or executable (EXE) add-on.

Public Sub EventList_Example() 
 Dim vsoEventList As Visio.EventList 
 Dim vsoEvent As Visio.Event 
 Dim vsoAddons As Visio.Addons 
 Dim vsoAddon As Visio.Addon 
 'Prevent overflow error. 
 Const visEvtAdd% = &H8000 
 'Add the specified add-on to the Addons collection. 
 Set vsoAddons = Visio.Addons 
 Set vsoAddon = vsoAddons.Add ("fullpath\filename ") 
 'Add a ShapeAdded event to the EventList collection 
 'of the document. The event will start the specified add-on, which 
 'should take no arguments. 
 Set vsoEventList = ThisDocument.EventList 
 Set vsoEvent = vsoEventList.Add(visEvtAdd + visEvtShape, visActCodeRunAddon, _ 
 "filename ", "") 
End Sub

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.