Propriedade InvisibleApp.ConnectorToolDataObject (Visio)

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

Sintaxe

expressão. ConnectorToolDataObject

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

Valor de retorno

Idataobject

Comentários

Por padrão, a ConnectorToolDataObject retorna a ferramenta interna Connector do Visio. Se um mestre de um estêncil for o conector ativo, ConnectorToolDataObject retornará um objeto de dados para esse mestre. 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 de Conector Dinâmico , usando cola dinâmica. Antes de executar essa macro, abra o estêncil Formas Básicas se ele ainda não estiver 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.