Connects.ToSheet, propriété (Visio)

Renvoie la forme avec laquelle une ou plusieurs connexions sont établies. En lecture seule.

Syntaxe

expression. ToSheet

Expression Variable qui représente un objet Connects .

Valeur renvoyée

Shape

Remarques

La propriété ToSheet d'un objet Connect renvoie toujours la forme avec laquelle la connexion est établie.

La collection Connects représente plusieurs connexions. Si chaque connexion représentée par la collection est établie avec la même forme, la propriété ToSheet renvoie cette forme. Dans le cas contraire, elle renvoie la valeur Nothing et ne génère pas d'exception.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété ToSheet pour chercher la forme dont un objet Connect est originaire à partir d’un dessin Microsoft Visio. L’exemple affiche les informations de connexion dans la fenêtre Exécution.

L'exemple implique qu'il y ait un document actif contenant au moins deux formes connectées. Pour obtenir de meilleurs résultats, connectez deux formes à partir du gabarit Formes d'organigramme.

 
Public Sub ToSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectTo As Visio.Shape 
 Dim vsoConnects As Visio.Connects 
 Dim vsoConnect As Visio.Connect 
 Dim intCurrentShapeIndex As Integer 
 Dim intCounter As Integer 
 Set vsoShapes = ActivePage.Shapes 
 
 'For each shape on the page, get its connections. 
 For intCurrentShapeIndex = 1 To vsoShapes.Count 
 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 'For each connection, get the shape it connects to. 
 For intCounter = 1 To vsoConnects.Count 
 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectTo = vsoConnect.ToSheet 
 
 'Print the name of the shape the 
 'Connect object connects to. 
 Debug.Print vsoConnectTo.Name 
 
 Next intCounter 
 
 Next intCurrentShapeIndex 
 
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.