Méthode Selection.ConnectShapes (Visio)

Relie au moins deux formes sélectionnées avec un lien dynamique. Renvoie la valeur Nothing.

Syntaxe

expression. ConnectShapes

Expression Variable qui représente un objet Selection .

Valeur renvoyée

Aucune

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la méthode ConnectShapes pour relier deux formes.

Public Sub ConnectShapes_Example() 
 
 Dim vsoShape1 As Visio.Shape 
 Dim vsoShape2 As Visio.Shape 
 
 Set vsoShape1 = Application.ActiveWindow.Page.DrawRectangle(2, 9, 4, 7) 
 Set vsoShape2 = Application.ActiveWindow.Page.DrawRectangle(5, 6, 7, 3) 
 
 ActiveWindow.DeselectAll 
 ActiveWindow.Select vsoShape1, visSelect 
 ActiveWindow.Select vsoShape2, visSelect 
 Application.ActiveWindow.Selection.ConnectShapes 
 
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.