Freigeben über

Connect.ToCell-Eigenschaft (Visio)

  • Artikel

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

HinwBemerkungeneise

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 mit der 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 die Zelle Connections.X i zurück.

  • Die Anfangs- oder Endzelle eines 1D-Shapes: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt die Zelle Connections.X i zurück.

  • Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt die Zelle Connections.X i zurück.

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 nach innen oder nach innen/außen gerichteten Verbindungspunktzelle, die keine Zelle eines Führungs- oder Führungspunkts ist: Wenn diese Zellen geklebt werden, werden zwei Verbindungen erstellt– eine von der BeginX-Zelle des 1D-Shapes zur Zelle Connections.X i und die andere von der EndX-Zelle des 1D-Shapes mit der Zelle Connections.Y i . Die ToCell-Eigenschaft gibt Connections.X i für das erste Connect-Objekt und Connections.Y i für das andere zurück.

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

Von einem Steuerpunkt zu...

  • Eine Verbindungspunktzelle: Die ToCell-Eigenschaft gibt die Zelle Connections.Xi zurück.

  • 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 Leitfadens und für das zweite Connect-Objekt die PinY-Zelle des Führungsliniens zurück.

  • Jede Zelle einer Vertexzeile in einem Geometry-Abschnitt: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt die Zelle Connections.Xi zurück.

  • Die Anfangs- oder Endzelle eines 1D-Shapes: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt die Zelle Connections.Xi zurück.

  • Der Rand (eine Zelle im Abschnitt Ausrichtung) einer 2D-Form: Ein neuer Verbindungspunkt wird erstellt, und die ToCell-Eigenschaft gibt die Zelle Connections.X i zurück.

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.