InvisibleApp. ConnectorToolDataObject-Eigenschaft (Visio)InvisibleApp.ConnectorToolDataObject property (Visio)

Gibt eine IDataObject -Schnittstelle zurück, die das in der Benutzeroberfläche von Microsoft Visio verwendete Active Connector -Tool darstellt.Returns an IDataObject interface representing the active Connector tool used in the Microsoft Visio user interface. Schreibgeschützt.Read-only.

SyntaxSyntax

Ausdruck. ConnectorToolDataObjectexpression.ConnectorToolDataObject

Ausdruck Eine Variable, die ein InvisibleApp -Objekt darstellt.expression A variable that represents an InvisibleApp object.

RückgabewertReturn value

IDataObjectIDataObject

BemerkungenRemarks

Standardmäßig gibt ConnectorToolDataObject das integrierte Visio Connector -Tool zurück.By default, ConnectorToolDataObject returns the built-in Visio Connector tool. Wenn ein Master aus einer Schablone der aktive Verbinder ist, gibt ConnectorToolDataObject ein Datenobjekt für diesen Master zurück.If a master from a stencil is the active connector, ConnectorToolDataObject returns a data object for that master. Wenn Visio das interne IDataObject-Abfrageprogramm nicht abrufen kann, wird eine Ausnahme ausgelöst.If Visio fails to retrieve the internal IDataObject, it raises an exception.

BeispielExample

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die ConnectorToolDataObject-Eigenschaft zum Verbinden zweier Shapes verwendet wird.The following Microsoft Visual Basic for Applications (VBA) macro shows how to use the ConnectorToolDataObject property to connect two shapes. Sie legt zwei Master-Shapes auf der Seite ab und verbindet Sie mit einem dynamischen Verbinder -Shape mit dynamischem Klebstoff.It drops two masters on the page and connects them with a Dynamic Connector shape, using dynamic glue. Öffnen Sie vor dem Ausführen dieses Makros die Schablone grundlegende Shapes , falls Sie noch nicht geöffnet ist.Before running this macro, open the Basic Shapes stencil if it is not already open.

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

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.