Connects.FromSheet-Eigenschaft (Visio)

Artikel
04/07/2023

Gibt das Shape zurück, aus der eine Verbindung oder Verbindungen stammen. Schreibgeschützt.

Syntax

Ausdruck. FromSheet

Ausdruck Eine Variable, die ein Connects-Objekt darstellt.

Rückgabewert

Form

Bemerkungen

Die FromSheet-Eigenschaft für das Connect-Objekt ist unkompliziert. Sie gibt stets das Shape zurück, aus der das Connect-Objekt stammt.

Eine Connects-Auflistung stellt verschiedene Verbindungen dar. Wenn jede Verbindung, die durch die Auflistung dargestellt wird, aus demselben Shape stammt, gibt die FromSheet-Eigenschaft für die Auflistung dieses Shape zurück. Andernfalls gibt die FromSheet-Eigenschaft Nothing zurück und löst keine Ausnahme aus.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie mit der FromSheet-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 FromSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectFrom 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 intCurrentShapeIndex = 1 To vsoShapes.Count 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 For intCounter = 1 To vsoConnects.Count 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectFrom = vsoConnect.FromSheet 
 
 'Print the name of the shape the 
 'Connect object originates from. 
 Debug.Print vsoConnectFrom.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.

Freigeben über