Freigeben über


Selection.ConnectShapes-Methode (Visio)

Verbindet zwei oder mehr ausgewählte Shapes mit einer dynamischen Verbindung. Gibt Nothing zurück.

Syntax

Ausdruck. ConnectShapes

Ausdruck Eine Variable, die ein Selection-Objekt darstellt.

Rückgabewert

Nichts

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der ConnectShapes-Methode zwei Shapes miteinander verbinden.

Public Sub ConnectShapes_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(2, 9, 4, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(5, 6, 7, 3) 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 Application.ActiveWindow.Selection.ConnectShapes 
 
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.