Connects.FromSheet, propriété (Visio)

Article
04/07/2023

Renvoie la forme à l’origine d’une ou de plusieurs connexions. En lecture seule.

Syntaxe

expression. Feuille FromSheet

Expression Variable qui représente un objet Connects .

Valeur renvoyée

Shape

Remarques

La propriété FromSheet d'un objet Connect est simple. Elle renvoie toujours la forme d'où provient l'objet Connect.

La collection Connects représente plusieurs connexions. Si toutes les connexions représentées par la collection proviennent de la même forme, cette dernière est renvoyée par la propriété FromSheet de la collection. Sinon, la propriété FromSheet renvoie Nothing et ne provoque pas d'exception.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) indique comment utiliser la propriété FromSheet 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 FromSheet_Example() 
 
 Dim vsoShapes As Visio.Shapes 
 Dim vsoShape As Visio.Shape 
 Dim vsoConnectFrom 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 intCurrentShapeIndex = 1 To vsoShapes.Count 
 Set vsoShape = vsoShapes(intCurrentShapeIndex) 
 Set vsoConnects = vsoShape.Connects 
 
 For intCounter = 1 To vsoConnects.Count 
 Set vsoConnect = vsoConnects(intCounter) 
 Set vsoConnectFrom = vsoConnect.FromSheet 
 
 'Print the name of the shape the 
 'Connect object originates from. 
 Debug.Print vsoConnectFrom.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.

Partager via