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.
Obtient l’index dans la collection de formes de la forme sélectionnée dans le dessin ouvert dans Visionneuse Microsoft Visio. En lecture seule.
Syntaxe
expression. SelectedShapeIndex
Expression Expression qui renvoie un objet Viewer .
Valeur renvoyée
Long
Remarques
La collection de formes étant basée sur un, l’index de la première forme de la collection est 1.
Si aucune forme n’est sélectionnée dans le dessin, la propriété SelectedShapeIndex renvoie 0.
Exemple
Le code suivant effectue une itération au sein de la collection de formes dans le document ouvert dans Visionneuse Visio, sélectionne chaque forme tour à tour, puis obtient la valeur du premier élément de données de forme (propriété personnalisée) affecté à chaque forme. S’il découvre une valeur de propriété personnalisée de Computer 100, il affiche une boîte de message à cet effet.
Dim intSelectedShapeIndex As Integer
Dim intShapeCounter As Integer
For intShapeCounter = 1 To vsoViewer.ShapeCount
vsoViewer.SelectShape (intShapeCounter)
intSelectedShapeIndex = vsoViewer.SelectedShapeIndex
If vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1) = "Computer 100" Then
Interaction.MsgBox ("Selected shape name is " & vsoViewer.CustomPropertyValue(intSelectedShapeIndex, 1))
End If
Next
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.