Propriedade Application.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 Aplicativo objeto.

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.