Propriété ShapeRange.Vertices (PowerPoint)

Article
04/07/2023

Renvoie les coordonnées des sommets des dessins à main levée spécifiés (et des points de contrôles des courbes de Bézier) sous la forme d’une série de paires de coordonnées. En lecture seule.

Syntaxe

expression. Sommets

Expression Variable qui représente un objet ShapeRange .

Valeur renvoyée

Variant

Remarques

Utilisez le tableau retourné par cette propriété comme argument de la méthode AddCurve ou AddPolyline .

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)`	Distance horizontale entre le premier sommet et le bord gauche de la diapositive
`VertArray(1, 2)`	Distance verticale entre le premier sommet et le bord supérieur de la diapositive
`VertArray(2, 1)`	Distance horizontale entre le deuxième sommet et le bord gauche de la diapositive
`VertArray(2, 2)`	Distance verticale entre le deuxième sommet et le bord supérieur de la diapositive
`VertArray(3, 1)`	Distance horizontale entre le troisième sommet et le bord gauche de la diapositive
`VertArray(3, 2)`	Distance verticale entre le troisième sommet et le bord supérieur de la diapositive

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 = ActivePresentation.Slides(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 n + 1 sommets pour que cet exemple réussisse.

Set myDocument = ActivePresentation.Slides(1)

With myDocument.Shapes

    .AddCurve .Item(1).Vertices

End With

Voir aussi

ShapeRange, 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.

Partager via