Compartir a través de

Propiedad Application.ConnectorToolDataObject (Visio)

  • Artículo

Devuelve una interfaz IDataObject que representa la herramienta de conector activa utilizada en la interfaz de usuario de Microsoft Visio. Solo lectura.

Sintaxis

expresión. ConnectorToolDataObject

expresión Variable que representa un objeto Application.

Valor devuelto

IDataObject

Comentarios

De forma predeterminada, ConnectorToolDataObject devuelve la herramienta Conector integrada de Visio. Si un patrón de una galería de símbolos es el conector activo, ConnectorToolDataObject devuelve un objeto de datos para ese patrón. Si Visio no puede recuperar la interfaz IDataObject interna, genera una excepción.

Ejemplo:

La siguiente macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo utilizar la propiedad ConnectorToolDataObject para conectar dos formas. Coloca dos patrones en la página y los conecta con una forma de conector dinámico , mediante el pegado dinámico. Antes de ejecutar esta macro, abra la galería de símbolos Formas básicas si aún no está abierta.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.