Compartir a través de

Método Cell.GlueToPos (Visio)

Pega una forma a otra desde una celda de la primera forma a una posición x, y en la segunda forma.

Sintaxis

expresión. GlueToPos (SheetObject, xPercent, yPercent)

expresión Variable que representa un objeto Cell .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
SheetObject Obligatorio [IVSHAPE] Expresión que devuelve el objeto Shape al que se va a pegar.
xPercent Obligatorio Double Coordenada X de la posición a la que se va a pegar.
yPercent Obligatorio Double Coordenada Y de la posición a la que se va a pegar.

Valor devuelto

Nothing

Comentarios

El método GlueToPos crea un nuevo punto de conexión en la ubicación determinada por xPercent e yPercent, que representan fracciones decimales del ancho y alto, respectivamente, de la forma especificada, en lugar de las coordenadas. Por ejemplo, el siguiente código crea un punto de conexión en el centro de SheetObject y pega la parte de la forma que cellObject representa a ese punto:

cellObject. GlueToPosSheetObject, 0.5, 0.5

Al pegar la celda X de una fila de sección Controles o una celda BeginX o EndX, se pega automáticamente la celda Y de la fila de sección Controles o la celda BeginY o EndY, respectivamente. (Lo contrario también es cierto).

Ejemplo

En el siguiente ejemplo se muestra cómo utilizar el método GlueToPos para pegar formas.

 
Public Sub GlueToPos_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 
 
 '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") 
 
 'Use the GlueToPos method to glue the begin point of the 1D shape 
 'to the top center of the lower 2D shape. 
 vsoCellGlueFromBegin.GlueToPos vso2DShape1, 0.5, 1 
 
 'Use the GlueToPos method to glue the endpoint of the 1D shape 
 'to the bottom center of the upper 2D shape. 
 vsoCellGlueFromEnd.GlueToPos vso2DShape2, 0.5, 0 
 
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