Compartir a través de

Propiedad Connect.ToCell (Visio)

  • Artículo

Obtiene la celda con la que se realiza una conexión. Solo lectura.

Sintaxis

expresión. ToCell

Expresión Variable que representa un objeto Connect .

Valor devuelto

Cell

Comentarios

Una conexión está definida por una referencia en una celda de la forma desde la que se origina la conexión a una celda de la forma destino de dicha conexión. La propiedad ToCell devuelve el objeto Cell con el que se realiza una conexión.

A continuación se muestra una lista de conexiones posibles y sus valores de la propiedad ToCell relacionados.

Desde la celda inicial o final de una forma 1D a...

  • Celda de punto de conexión: La propiedad ToCell devuelve la celda Connection.X i .

  • Celda de una guía o punto de guía: Cuando la celda inicial o final de una forma 1D se pega a una celda de una guía o punto de guía, se crean dos conexiones: una desde la celda X del punto de conexión a la celda Angular de la guía y la otra desde la celda Y del punto de conexión a la celda Ángulo de la guía. La propiedad ToCell de ambos objetos Connect devuelve la celda Angle.

  • Patilla de una forma 2D (crea pegamento dinámico): La propiedad ToCell devuelve la celda PinX.

  • Cualquier celda de una fila de vértices en una sección Geometry: Se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.X i .

  • Celda begin o end de una forma 1D: Se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.X i .

  • Borde (una celda de la sección Alineación) de una forma 2D: Se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.X i .

Desde el borde (una celda de la sección Alineación) de una forma 2D hasta una celda de una guía o punto de guía: La propiedad ToCell devuelve la celda Angle.

Desde una celda de punto de conexión hacia afuera, hacia adentro o hacia fuera de una forma 1D hasta una celda de punto de conexión hacia dentro o hacia afuera que no es una celda de una guía o punto de guía: Cuando se pegan estas celdas, se crean dos conexiones: una de la celda BeginX de la forma 1D a la celda Connections.X i y otra de la celda EndX de la forma 1D a la celda Connections.Y i . La propiedad ToCell devuelve Connections.X i para el primer objeto Connect y Connections.Y i para el otro.

Desde una celda de punto de conexión hacia afuera, hacia dentro o hacia fuera de una forma 2D que no es una guía o un punto de guía a una celda de punto de conexión de tipo interno, interno o externo que no es una celda de un punto de guía o guía: Si el punto de conexión saliente no tiene dirección, la propiedad ToCell devuelve la celda Connections.X i . Si el punto de conexión saliente tiene una dirección, se crean dos puntos de conexión. La propiedad ToCell devuelve la celda Connections.X i para ambos objetos Connect .

De un controlador a...

  • Celda de punto de conexión: La propiedad ToCell devuelve la celda Connections.Xi.

  • Celda de una guía o punto de guía: Cuando un punto de control se pega a una celda de una guía o un punto de guía, se crean dos conexiones: una desde la celda X del punto de control a la PinX de la guía y la otra desde la celda Y del punto de control a la celda PinY de la guía. La propiedad ToCell del primer objeto Connect devuelve la celda PinX de la guía y, para el segundo objeto Connect , la celda PinY de la guía.

  • Cualquier celda de una fila de vértice en una sección de geometría: se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.Xi.

  • Celda begin o end de una forma 1D: Se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.Xi.

  • Borde (una celda de la sección Alineación) de una forma 2D: Se crea un nuevo punto de conexión y la propiedad ToCell devuelve la celda Connections.X i .

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo extraer información sobre la conexión de un dibujo de Microsoft Visio. El ejemplo muestra la información sobre las conexiones en la ventana Inmediato.

En este ejemplo se da por hecho que existe un documento activo que contiene al menos dos formas conectadas.

 
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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.