Compartilhar via

Propriedade Connect.ToCell (Visio)

  • Artigo

Obtém a célula com a qual uma conexão é feita. Somente leitura.

Sintaxe

expressão. ToCell

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

Valor de retorno

Cell

Comentários

Uma conexão é definida por uma referência, em uma célula da forma em que a conexão se origina, a uma célula da forma com a qual a conexão é estabelecida. A propriedade ToCell retorna o objeto Cell para qual a conexão é feita.

A seguir uma lista de conexões possíveis e seus valores relacionados da propriedade ToCell.

Desde a célula inicial ou final de uma forma 1D até...

  • Uma célula de ponto de conexão: A propriedade ToCell retorna a célula Connection.X i .

  • Uma célula de um guia ou ponto de guia: Quando a célula inicial ou final de uma forma 1D é colada a uma célula de um guia ou ponto de guia, duas conexões são criadas: uma da célula X do ponto de extremidade à célula Angle do guia e outra da célula Y do ponto de extremidade para a célula Angle do guia. A propriedade ToCell de ambos os objetos Connect retorna a célula Angle.

  • O pino de uma forma 2D (cria cola dinâmica): A propriedade ToCell retorna a célula PinX.

  • Qualquer célula de uma linha de vértice em uma seção Geometry: Um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.X i .

  • A célula inicial ou final de uma forma 1D: Um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.X i .

  • A borda (uma célula na seção Alinhamento) de uma forma 2D: Um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.X i .

Da borda (uma célula na seção Alinhamento) de uma forma 2D até acell de um guia ou ponto de guia: A propriedade ToCell retorna a célula Angle.

De uma célula de ponto de conexão para fora ou para dentro/para fora de uma forma 1D para uma célula de ponto de conexão interna ou externa que não é uma célula de um guia ou ponto de guia: Quando essas células são coladas, duas conexões são criadas: uma da célula BeginX da forma 1D para a célula Connections.X i e outra da célula EndX da forma 1D para a célula Connections.Y i . A propriedade ToCell retorna Connections.X i para o primeiro objeto Connect e Connections.Y i para o outro.

De uma célula de ponto de conexão para fora ou para dentro/para fora de uma forma 2D que não é um guia ou ponto de guia para uma célula de ponto de conexão interna ou interna/externa que não é uma célula de um guia ou ponto de guia: Se o ponto de conexão externa estiver sem direção, a propriedade ToCell retornará a célula Connections.X i . Se o ponto de conexão externo tiver uma direção, dois pontos de conexão serão criados. A propriedade ToCell retorna a célula Connections.X i para ambos os objetos Connect .

De uma alça de controle para...

  • Uma célula de ponto de conexão: A propriedade ToCell retorna a célula Connections.Xi.

  • Uma célula de um guia ou ponto de guia: Quando um ponto de controle é colado a uma célula de um guia ou ponto de guia, duas conexões são criadas: uma da célula X do ponto de controle para o PinX do guia e outra da célula Y do ponto de controle para a célula PinY do guia. A propriedade ToCell do primeiro objeto Connect retorna a célula PinX do guia e, para o segundo objeto Connect , a célula PinY do guia.

  • Qualquer célula de uma linha de vértice em uma seção Geometry: um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.Xi.

  • A célula inicial ou final de uma forma 1D: Um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.Xi.

  • A borda (uma célula na seção Alinhamento) de uma forma 2D: Um novo ponto de conexão é criado e a propriedade ToCell retorna a célula Connections.X i .

Exemplo

Esta macro do Microsoft Visual Basic for Applications (VBA) mostra como extrair informações de conexão de um desenho do Microsoft Visio. O exemplo exibe as informações de conexão na janela Imediato.

O exemplo presume que haja um documento ativo contendo pelo menos duas 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

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.