Partager via


Propriété InvisibleApp.ConnectorToolDataObject (Visio)

Renvoie une interface IDataObject représentant l’outil Connecteur actif utilisé dans l’interface utilisateur de Microsoft Visio. En lecture seule.

Syntaxe

expression. ConnectorToolDataObject

Expression Variable qui représente un objet InvisibleApp .

Valeur renvoyée

Idataobject

Remarques

Par défaut, ConnectorToolDataObject renvoie l'outil Lien intégré Visio. Si une forme de base d’un gabarit est le connecteur actif, ConnectorToolDataObject renvoie un objet de données pour cette forme de base. Si Visio ne parvient pas à récupérer IDataObject interne, il génère une exception.

Exemple

La macro Microsoft Visual Basic pour Applications (VBA) suivante indique comment utiliser la propriété ConnectorToolDataObject pour relier deux formes. Il supprime deux formes de base sur la page et les connecte à une forme de connecteur dynamique , à l’aide d’un collage dynamique. Avant d’exécuter cette macro, ouvrez le gabarit Formes de base s’il n’est pas déjà ouvert.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.