Connects.FromSheet, propriété (Visio)
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.