Método Cell.GlueTo (Visio)

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

Sintaxis

más sencilla.GlueTo (CellObject)

expresión Variable que representa un objeto Cell .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
CellObject Obligatorio [CÉLULA IV] 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 hasta...

  • Una celda de puntos de conexión.

  • Una celda de una guía o punto de guía: Cuando la celda inicial o final de una forma 1D está pegada a una celda de una guía o punto de guía, se crean dos conexiones: una desde la celda BeginX o EndX a la celda Ángulo de la guía y otra desde la celda BeginY o EndY a la celda Ángulo de la guía.

  • La chincheta de una forma 2D (crea pegamento dinámico): La forma desde la que se pega debe ser enrutable (ObjType incluye visLOFlagsRoutable) o tener un tipo de pegamento dinámico (GlueType incluye visGlueTypeWalking) y no prohíbe el pegamento 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 de geometría: Se crea un punto de conexión al que está pegado. Se puede designar la celda inicial o final como la celda desde la que se pegará. El método GlueTo establece fórmulas nuevas en las celdas X e Y de la fila de conexión.

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

  • El borde (una celda de la sección Alineación) de una forma 2D: Se crea un punto de conexión al que está pegado. Se puede designar la celda inicial o final como la celda desde la que se pegará. El método GlueTo establece fórmulas nuevas 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 saliente o entrante/saliente de una forma 1D a una celda de punto de conexión entrante o entrante/saliente que no sea una celda de una guía o punto guía: Cuando estas celdas están pegadas, se crean dos conexiones: una desde la celda BeginX de la forma 1D a la celda Connections.Xi y la otra desde la celda EndX de la forma 1D a la celda Connections.Y i .

Desde una celda de punto de conexión saliente o entrante o saliente de forma 2D a una celda de punto de conexión de tipo entrante o entrante o saliente que no sea una celda de una guía o punto guía: Si el punto de conexión saliente tiene una dirección, se crean dos puntos de conexión: uno desde la celda Ángulo a la celda Conexiones.X i y el otro desde la celda PinX a la celda Conexiones.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 de geometría: Se crea un punto de conexión al que está pegado. Cualquier celda de la fila del punto de control se puede designar como la celda desde la que se pegará. El método GlueTo establece fórmulas nuevas en las celdas X e Y de la fila de conexión.

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

  • El borde (una celda de la sección Alineación) de una forma 2D: Se crea un punto de conexión al que está pegado. Cualquier celda de la fila del punto de control se puede designar como la celda desde la que se pegará. El método GlueTo establece fórmulas nuevas 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.

  • Last updated on