Application.ConnectorToolDataObject-Eigenschaft (Visio)

Artikel
10/16/2024

Gibt eine IDataObject-Schnittstelle zurück, die das aktive Connectortool darstellt, das in der Microsoft Visio-Benutzeroberfläche verwendet wird. Schreibgeschützt.

Syntax

Ausdruck. ConnectorToolDataObject

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

IDataObject

Hinweise

Standardmäßig gibt ConnectorToolDataObject das integrierte Visio Connector-Tool zurück. Wenn ein master aus einer Schablone der aktive Connector ist, gibt ConnectorToolDataObject ein Datenobjekt für diesen master zurück. Wenn Visio das interne IDataObject nicht abrufen kann, wird eine Ausnahme ausgelöst.

Beispiel

Das folgende VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie die ConnectorToolDataObject-Eigenschaft zum Verbinden zweier Shapes verwendet wird. Es löscht zwei Master auf dem Zeichenblatt und verbindet sie mit einem dynamischen Verbinder-Shape unter Verwendung von dynamischem Kleben. Öffnen Sie vor dem Ausführen dieses Makros die Schablone Grundlegende Shapes , falls sie noch nicht geöffnet ist.

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 Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über