Connects.ToSheet-Eigenschaft (Visio)

  • Artikel

Gibt das Shape zurück, mit dem eine oder mehrere Verbindungen hergestellt werden. Schreibgeschützt.

Syntax

Ausdruck. ToSheet

Ausdruck Eine Variable, die ein Connects-Objekt darstellt.

Rückgabewert

Form

Bemerkungen

Die ToSheet-Eigenschaft für ein Connect-Objekt gibt immer das Shape zurück, mit dem die Verbindung hergestellt wird.

Die Connects-Auflistung stellt verschiedene Verbindungen dar. Wenn jede durch die Auflistung dargestellt Verbindung mit demselben Shape hergestellt wird, gibt die ToSheet-Eigenschaft dieses Shape zurück. Andernfalls gibt sie Nothing zurück und löst keine Ausnahme aus.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der ToSheet-Eigenschaft das Shape suchen, aus dem ein Connect-Objekt in einer Microsoft Visio-Zeichnung stammt. Das Beispiel zeigt die Verbindungsinformationen im Direktfenster an.

Dieses Beispiel setzt voraus, dass ein aktives Dokument mindestens zwei verbundene Shapes enthält. Verbinden Sie zwei Shapes aus der Schablone Organigramm-Shapes, um optimale Ergebnisse zu erzielen.

 
Public Sub ToSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 
 'Print the name of the shape the 
 'Connect object connects to. 
 Debug.Print vsoConnectTo.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
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.