Shape.Vertices, propriété (Word)

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. Type de données Variant en lecture seule.

Syntaxe

expression. Vertex

expression Obligatoire. Variable qui représente un objet Shape.

Remarques

Utilisez le tableau renvoyé par cette propriété comme argument pour la méthode AddCurve ou AddPolyLine .

Le tableau suivant montre comment la propriété Vertices associe les valeurs du tableau vertArray() aux coordonnées des vertex d’un triangle.

Élément vertArray Contient
vertArray(1, 1) La distance horizontale à partir du premier sommet à gauche du document.
vertArray(1, 2) La distance verticale à partir du premier sommet en haut du document.
vertArray(2, 1) La distance horizontale à partir du deuxième sommet à gauche du document.
vertArray(2, 2) La distance verticale à partir du deuxième sommet en haut du document.
vertArray(3, 1) La distance horizontale à partir du troisième sommet à gauche du document.
vertArray(3, 2) La distance verticale à partir du troisième sommet en haut du document.

Exemple

Cet exemple montre comment affecter les coordonnées du sommet de la forme 1 du document actif à une variable de tableau et comment afficher les coordonnées du premier sommet. La forme 1 doit être un dessin de forme libre.

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

Cet exemple montre comment créer une courbe qui a la même description géométrique que la forme 1 dans le document actif. Cet exemple suppose que la première forme est une courbe de Bézier contenant 3 sommets n+1, où n est le nombre de segments de courbe.

With ActiveDocument.Shapes 
    .AddCurve .Item(1).Vertices, Selection.Range 
End With

Voir aussi

Shape, objet

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.