Compartir a través de

Método Cell.GlueTo (Visio)

  • Artículo

Pega una forma a otra, de una celda en la primera forma a una celda en la segunda forma.

Sintaxis

expresión. GlueTo (CellObject)

Expresión Variable que representa un objeto Cell .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
CellObject Obligatorio [IVCELL] Expresión que devuelve un objeto Cell que representa la parte de la forma a la que se va a pegar.

Valor devuelto

Nothing

Comentarios

A continuación figura una lista de posibles conexiones.

A continuación figura una lista de posibles conexiones.

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

  • Una celda de puntos de conexión.

  • 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 de la celda BeginX o EndX a la celda Angle de la guía y otra de la celda BeginY o EndY a la celda Angle de la guía.

  • Patilla de una forma 2D (crea pegamento dinámico): La forma que se pega desde debe ser enrutable (ObjType incluye visLOFlagsRoutable) o tener un tipo de pegado dinámico (GlueType incluye visGlueTypeWalking) y no prohíbe el pegado dinámico (GlueType no incluye visGlueTypeNoWalking). Pegar a PinY crea un pegado dinámico con preferencia vertical.

  • Cualquier celda de una fila de vértices en una sección Geometry: Se crea un punto de conexión al que se pega. La celda inicial o final se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

  • Celda begin o end de una forma 1D: Se crea un punto de conexión al que se pega. La celda inicial o final se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

  • Borde (una celda de la sección Alineación) de una forma 2D: Se crea un punto de conexión al que se pega. La celda inicial o final se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

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.

Desde una celda de punto de conexión hacia afuera o hacia afuera 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.Xi y otra de la celda EndX de la forma 1D a la celda Connections.Y i .

Desde una celda de punto de conexión hacia afuera o hacia afuera de una forma 2D hasta una celda de punto de conexión de tipo hacia dentro o hacia fuera que no es una celda de una guía o punto de guía: Si el punto de conexión saliente tiene una dirección, se crean dos puntos de conexión: uno de la celda Angle a la celda Connections.X i y el otro de la celda PinX a la celda Connections.Y i .

De una celda de punto de control a...

  • Una celda de puntos de conexión.

  • Una celda de una guía o un punto de guía: cuando se pega un punto de control a una celda de una guía o un punto de guía que no sea una celda de punto de conexión, se crean dos conexiones; una con PinX de la guía y otra con PinY de la guía.

  • Cualquier celda de una fila de vértices en una sección Geometry: Se crea un punto de conexión al que se pega. Cualquier celda de la fila del punto de control se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

  • Celda begin o end de una forma 1D que no es un punto de guía o guía: Se crea un punto de conexión al que se pega. Cualquier celda de la fila del punto de control se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

  • Borde (una celda de la sección Alineación) de una forma 2D: Se crea un punto de conexión al que se pega. Cualquier celda de la fila del punto de control se puede designar como la celda desde la que pegar. El método GlueTo establece nuevas fórmulas en las celdas X e Y de la fila de conexión.

Para obtener información detallada sobre el tipo y la dirección de los puntos de conexión, vea la sección de puntos de conexión.

Ejemplo:

La siguiente macro muestra cómo utilizar el método GlueTo para pegar formas.

 
Public Sub GlueTo_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  
 
    '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  
 
    'You can also use the GlueTo method to glue  
    'by referencing a connection point cell.  
    Set vso1DShape = ActivePage.DrawLine(3, 5, 5, 3)  
    Set vsoCellGlueFromEnd = vso1DShape.Cells("EndX")  
    Set vsoCellGlueToObject = vso2DShape1.Cells("Connections.X1")  
    vsoCellGlueFromEnd.GlueTo vsoCellGlueToObject  
 
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.