Compartilhar via

Propriedade Connects.ToSheet (Visio)

  • Artigo

Retorna a forma à qual uma ou mais conexões foram feitas. Somente leitura.

Sintaxe

expressão. ToSheet

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

Valor de retorno

Forma

Comentários

A propriedade ToSheet de um objeto Connect sempre retorna a forma à qual a conexão foi feita.

A coleção Connects representa várias conexões. Se todas as conexões representadas pela coleção forem destinadas à mesma forma, a propriedade ToSheet retornará essa forma. Caso contrário, ela retornará Nothing e não criará uma exceção.

Exemplo

Esta macro do VBA (Microsoft Visual Basic for Applications) mostra como usar a propriedade ToSheet para localizar uma forma da qual o objeto Connect é originário, em um desenho do Microsoft Visio. O exemplo exibe as informações da conexão na janela Immediate.

O exemplo presume que haja um documento ativo contendo pelo menos duas formas conectadas. Para obter melhores resultados, conecte duas formas do estêncil Formas de Organograma.

 
Public Sub ToSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 
 'Print the name of the shape the 
 'Connect object connects to. 
 Debug.Print vsoConnectTo.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
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.