Propriété Shape.Vertices (Excel)

  • Article

Renvoie les coordonnées des sommets du dessin de la forme libre spécifiée (et les points de contrôle pour les courbes de Bézier) sous forme de paires de coordonnées. Utilisez le tableau retourné par cette propriété comme argument de la méthode AddCurve ou AddPolyLine . Variant en lecture seule.

Syntaxe

expression. Sommets

Expression Variable qui représente un objet Shape .

Remarques

Le tableau suivant montre comment la propriété Vertices associe les valeurs dans le tableau vertArray() aux coordonnées des sommets d'un triangle.

Élément vertArray Contains
vertArray(1, 1) La distance horizontale entre le premier sommet et le côté gauche du document
vertArray(1, 2) La distance verticale entre le premier sommet et la partie supérieure du document
vertArray(2, 1) La distance horizontale entre le deuxième sommet et le côté gauche du document
vertArray(2, 2) La distance verticale entre le deuxième sommet et la partie supérieure du document
vertArray(3, 1) La distance horizontale entre le troisième sommet et le côté gauche du document
vertArray(3, 2) La distance verticale entre le troisième sommet et la partie supérieure du document

Exemple

Cet exemple montre comment affecter les coordonnées de vertex de la forme 1 de myDocument à la variable vertArray()de tableau et afficher les coordonnées du premier sommet.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(1) 
 vertArray = .Vertices 
 x1 = vertArray(1, 1) 
 y1 = vertArray(1, 2) 
 MsgBox "First vertex coordinates: " & x1 & ", " & y1 
End With

Cet exemple crée une courbe qui a la même description géométrique que la forme 1 dans myDocument. La forme 1 doit contenir 3 sommets n+1 pour que cet exemple réussisse.

Set myDocument = Worksheets(1) 
With myDocument.Shapes 
 .AddCurve .Item(1).Vertices 
End With

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.