Propriedade Application.ConnectorToolDataObject (Visio)

Devolve uma interface IDataObject que representa a ferramenta do Conector ativa utilizada na interface de utilizador 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 master de um stencil for o conector ativo, ConnectorToolDataObject devolve 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. Remove dois modelos globais na página e liga-os com uma forma de Conexão Dinâmica , utilizando cola dinâmica. Antes de executar esta macro, abra o stencil Formas Básicas se 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.