Propriedade Application.ConnectorToolDataObject (Visio)

Retorna uma interface IDataObject que representa a ferramenta Conector ativa usada na interface do usuário do Microsoft Visio. Somente leitura.

Sintaxe

mais simples. ConnectorToolDataObject

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

IDataObject

Comentários

Por padrão, a ConnectorToolDataObject retorna a ferramenta interna Connector do Visio. Se um master de um estêncil for o conector ativo, ConnectorToolDataObject retornará um objeto de dados para esse master. Se o Visio falhar ao recuperar o IDataObject interno, surgirá uma exceção.

Exemplo

A seguinte macro do Microsoft Visual Basic for Applications (VBA) mostra como usar a propriedade ConnectorToolDataObject para conectar duas formas. Ele solta dois mestres na página e os conecta com uma forma Conector Dinâmico , usando cola dinâmica. Antes de executar essa macro, abra o estêncil Formas Básicas , caso ainda não esteja aberto.

Public Sub ConnectorToolDataObject_Example() 
 
 Dim vsoSquareShape As Visio.Shape 
 Dim vsoCircleShape As Visio.Shape 
 Dim vsoConnectorShape As Visio.Shape 
 
 Dim vsoCell1 As Visio.Cell 
 Dim vsoCell2 As Visio.Cell 
 Dim vsoCell3 As Visio.Cell 
 Dim vsoCell4 As Visio.Cell 
 
 Set vsoSquareShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Square"), 4, 9) 
 Set vsoCircleShape = ActiveWindow.Page.Drop(Documents("BASIC_U.VSS").Masters.ItemU("Circle"), 4#, 6) 
 Set vsoConnectorShape = Application.ActiveWindow.Page.Drop(Application.ConnectorToolDataObject, 2, 2) 
 
 Set vsoCell1 = ActivePage.Shapes(3).Cells("BeginX") 
 Set vsoCell2 = ActivePage.Shapes(1).CellsSRC(7, 0, 0) 
 vsoCell1.GlueTo vsoCell2 
 
 Set vsoCell3 = ActivePage.Shapes(3).Cells("EndX") 
 Set vsoCell4 = ActivePage.Shapes(2).CellsSRC(7, 1, 0) 
 vsoCell3.GlueTo vsoCell4 
 
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.