Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt eine IDataObject-Schnittstelle zurück, die das aktive Connectortool darstellt, das in der Microsoft Visio-Benutzeroberfläche verwendet wird. Schreibgeschützt.
Syntax
Ausdruck verwendet werden. ConnectorToolDataObject
expression Eine Variable, die ein Application-Objekt darstellt.
Rückgabewert
IDataObject
Hinweise
Standardmäßig gibt ConnectorToolDataObject das integrierte Visio-Verbindertool zurück. Wenn ein master aus einer Schablone der aktive Verbinder 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. Sie legt zwei Master auf dem Blatt ab und verbindet sie mithilfe von dynamischem Kleben mit einem dynamischen Verbindershape . Öffnen Sie vor dem Ausführen dieses Makros die Schablone "Standard-Shapes ", sofern sie nicht bereits 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.