InvisibleApp.ConnectorToolDataObject プロパティ (Visio)

Microsoft Visio ユーザー インターフェイスで使用されるアクティブなコネクタ ツールを表す IDataObject インターフェイスを返します。 読み取り専用です。

構文

式。ConnectorToolDataObject

式InvisibleApp オブジェクトを表す変数。

戻り値

Idataobject

注釈

既定では、ConnectorToolDataObject は、組み込みの Visio [コネクタ] ツールを返します。 ステンシルのマスターがアクティブなコネクタの場合、 ConnectorToolDataObject はそのマスターのデータ オブジェクトを返します。 Visio は、内部 IDataObject の取得に失敗した場合、例外が発生します。

例

次の Microsoft Visual Basic for Applications (VBA) マクロは、ConnectorToolDataObject プロパティを使用して 2 つの図形を接合する方法を表しています。 ページ上に 2 つのマスターをドロップし、動的接着を使用して 動的コネクタ 図形に接続します。 このマクロを実行する前に、[ 基本図形] ステンシルがまだ開いていない場合は開きます。

Public Sub ConnectorToolDataObject_Example() 
 
 Dim vsoSquareShape As Visio.Shape 
 Dim vsoCircleShape As Visio.Shape 
 Dim vsoConnectorShape As Visio.Shape 
 
 Dim vsoCell1 As Visio.Cell 
 Dim vsoCell2 As Visio.Cell 
 Dim vsoCell3 As Visio.Cell 
 Dim vsoCell4 As Visio.Cell 
 
 Set vsoSquareShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Square"), 4, 9) 
 Set vsoCircleShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Circle"), 4#, 6) 
 Set vsoConnectorShape = Application.ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 2, 2) 
 
 Set vsoCell1 = ActivePage.Shapes(3).Cells("BeginX") 
 Set vsoCell2 = ActivePage.Shapes(1).CellsSRC(7, 0, 0) 
 vsoCell1.GlueTo vsoCell2 
 
 Set vsoCell3 = ActivePage.Shapes(3).Cells("EndX") 
 Set vsoCell4 = ActivePage.Shapes(2).CellsSRC(7, 1, 0) 
 vsoCell3.GlueTo vsoCell4 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。