Connect.ToCell-Eigenschaft (Visio)

Artikel
10/16/2024

Ruft die Zelle ab, mit der eine Verbindung hergestellt wird. Schreibgeschützt.

Syntax

Ausdruck. ToCell

Ausdruck Eine Variable, die ein Connect-Objekt darstellt.

Rückgabewert

Cell

Hinweise

Eine Verbindung wird definiert durch einen Verweis in einer Zelle des Shapes, aus dem die Verbindung stammt, auf eine Zelle in dem Shape, mit dem die Verbindung hergestellt wird. Die ToCell-Eigenschaft gibt das Cell-Objekt zurück, mit dem die Verbindung hergestellt wird.

Nachfolgend werden die möglichen Verbindungen und die verwandten Werte der ToCell-Eigenschaft aufgeführt.

Von der Anfangs- oder Endzelle eines 1D-Shapes bis...

Eine Verbindungspunktzelle: Die ToCell-Eigenschaft gibt die Zelle Connection.X i zurück.
Eine Zelle eines Führungs- oder Führungspunkts: Wenn die Anfangs- oder Endzelle eines 1D-Shapes an eine Zelle eines Führungs- oder Führungspunkts geklebt wird, werden zwei Verbindungen erstellt– eine von der X-Zelle des Endpunkts zur Winkelzelle der Führungslinie und die andere von der Y-Zelle des Endpunkts zur Winkelzelle der Führungslinie. Die ToCell-Eigenschaft beider Connect-Objekte gibt die Zelle Angle zurück.
Der Pin einer 2D-Form (erzeugt dynamischen Klebstoff): Die ToCell-Eigenschaft gibt die PinX-Zelle zurück.
Jede Zelle einer Vertexzeile in einem Geometry-Abschnitt: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. X i Zelle.
Die Anfangs- oder Endzelle eines 1D-Shapes: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. X i Zelle.
Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. X i Zelle.

Vom Rand (einer Zelle im Abschnitt Ausrichtung) eines 2D-Shapes zur Zelle eines Führungs- oder Führungspunkts: Die ToCell-Eigenschaft gibt die Zelle Angle zurück.

Von einer Verbindungspunktzelle nach außen oder nach innen/nach außen eines 1D-Shapes zu einer ein- oder nach innen-/nach außen gerichteten Verbindungspunktzelle, bei der es sich nicht um eine Zelle eines Führungs- oder Führungspunkts handelt: Wenn diese Zellen geklebt werden, werden zwei Verbindungen erstellt– eine von der BeginX-Zelle des 1D-Shapes zum Connections. X i-Zelle und die andere aus der EndX-Zelle des 1D-Shapes zum Connections. Y i Zelle. Die ToCell-Eigenschaft gibt Connections zurück. X i für das erste Connect-Objekt und Connections. Y i für den anderen.

Von einer Verbindungspunktzelle eines 2D-Shapes, bei dem es sich nicht um eine Führungslinie oder einen Führungspunkt handelt, von einer Verbindungspunktzelle vom Typ nach innen oder nach innen/außen, die keine Zelle eines Führungs- oder Führungspunkts ist: Wenn der äußere Verbindungspunkt richtungslos ist, gibt die ToCell-Eigenschaft den Connections zurück. X i Zelle. Wenn der nach außen gerichtete Verbindungspunkt über eine Richtung verfügt, werden zwei Verbindungspunkte erstellt. Die ToCell-Eigenschaft gibt die Connections zurück. X i-Zelle für beide Connect-Objekte.

Von einem Steuerpunkt zu...

Eine Verbindungspunktzelle: Die ToCell-Eigenschaft gibt den Connections zurück. Xi-Zelle.
Eine Zelle eines Führungs- oder Führungspunkts: Wenn ein Kontrollpunkt an eine Zelle eines Führungs- oder Führungspunkts geklebt wird, werden zwei Verbindungen erstellt– eine von der X-Zelle des Kontrollpunkts zur PinX-Zelle der Führungslinie und die andere von der Y-Zelle des Kontrollpunkts zur PinY-Zelle der Führungslinie. Die ToCell-Eigenschaft des ersten Connect-Objekts gibt die PinX-Zelle des Führungsleitfadens und für das zweite Connect-Objekt die PinY-Zelle des Leitfadens zurück.
Jede Zelle einer Vertexzeile in einem Geometry-Abschnitt: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. Xi-Zelle.
Die Anfangs- oder Endzelle eines 1D-Shapes: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. Xi-Zelle.
Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt den Connections zurück. X i Zelle.

Beispiel

Dieses VBA-Makro (Microsoft Visual Basic für Applikationen) veranschaulicht, wie Sie Verbindungsinformationen aus einer Microsoft Visio-Zeichnung extrahieren. Das Beispiel zeigt die Verbindungsinformationen im Direktfenster an.

Dieses Beispiel setzt voraus, dass ein aktives Dokument mindestens zwei verbundene Shapes enthält.

 
Public Sub ToCell_Example() 
 
 Dim vso1DShape As Visio.Shape 
 Dim vso2DShape1 As Visio.Shape 
 Dim vso2DShape2 As Visio.Shape 
 Dim vsoCellGlueFromBegin As Visio.Cell 
 Dim vsoCellGlueFromEnd As Visio.Cell 
 Dim vsoCellGlueToObject As Visio.Cell 
 Dim vsoCellGlueToObject2 As Visio.Cell 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim vsoConnectToCell As Visio.Cell 
 Dim intCurrentShapeID As Integer 
 Dim intCounter As Integer 
 
 'Draw a line. 
 Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3) 
 
 'Draw the lower rectangle. 
 Set vso2DShape1 = ActivePage.DrawRectangle(1, 1, 4, 2) 
 
 'Draw the upper rectangle. 
 Set vso2DShape2 = ActivePage.DrawRectangle(5, 5, 8, 6) 
 
 'Get the Cell objects needed to make the connections. 
 Set vsoCellGlueFromBegin = vso1DShape.Cells("BeginX") 
 Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX") 
 Set vsoCellGlueToObject = vso2DShape1.Cells("Geometry1.X3") 
 Set vsoCellGlueToObject2 = vso2DShape2.Cells("Geometry1.X1") 
 
 'Use the GlueTo method to glue the begin point of the 1D shape 
 'to the top right vertex (Geometry1.X3) of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueTo vsoCellGlueToObject 
 
 'Use the GlueTo method to glue the endpoint of the 1D shape 
 'to the bottom left vertex (Geometry1.X1) of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject2 
 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeID = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeID) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the cell it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectToCell = vsoConnect.ToCell 
 
 'Print connect information in the Immediate window. 
 Debug.Print " To "; vsoConnectToCell.Name 
 
 Next intCounter 
 
 Next intCurrentShapeID 
 
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