Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
Renvoie une interface IDataObject représentant l’outil Connecteur actif utilisé dans l’interface utilisateur de Microsoft Visio. En lecture seule.
Syntaxe
expression. ConnectorToolDataObject
expressionUne variable qui représente un objetApplication.
Valeur renvoyée
IDataObject
Remarques
Par défaut, ConnectorToolDataObject renvoie l'outil Lien intégré Visio. Si un master d’un gabarit est le connecteur actif, ConnectorToolDataObject renvoie un objet de données pour ce master. 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.