Partilhar via

Método Cell.GlueToPos (Visio)

  • Artigo

Cola uma forma a outra de uma célula na primeira forma a uma posição x, y na segunda forma.

Sintaxe

expressão. GlueToPos (SheetObject, xPercent, yPercent)

Expressão Uma variável que representa um objeto Cell .

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
SheetObject Obrigatório [IVSHAPE] Uma expressão que retorna o objeto Shape a ser colado.
xPercent Obrigatório Double A coordenada x da posição à qual associar.
yPercent Obrigatório Double A coordenada y da posição à qual associar.

Valor de retorno

Nada

Comentários

O método GlueToPos cria um novo ponto de conexão no local determinado por xPercent e yPercent, que representa frações decimais da largura e da altura da forma especificada, respectivamente, em vez de coordenadas. Por exemplo, a seguinte cria um ponto de conexão no centro de SheetObject e cola a parte da forma que cellObject representa para aquele ponto:

cellObject. GlueToPosSheetObject, 0.5, 0.5

Colar a célula X de uma linha de seção Controles ou uma célula BeginX ou EndX cola automaticamente a célula Y da linha de seção Controles ou a célula BeginY ou EndY, respectivamente. (O inverso também é true.)

Exemplo

O seguinte exemple mostra como usar o método GlueToPos para associar 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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.