Coordonnées des points d'un shape

Signaler
Messages postés
28
Date d'inscription
lundi 2 février 2009
Statut
Membre
Dernière intervention
16 septembre 2013
-
Bonjour à tous,

Dans une macro je récupére les coordonnées des points d'une forme.
ActiveWindow.Selection.SlideRange.Shapes.Range("F1").Select
'F1 est une forme que j'ai créée
sub recup_coord("F1")
Dim x1(200), y1(200) as variant
Set poly1 = ActiveWindow.Selection.ShapeRange
n1 = poly1.Nodes.Count
For i = 1 To n1
    With poly1.Nodes
        pointsArray = .Item(i).points
        x1(i) = pointsArray(1, 1)
        y1(i) = pointsArray(1, 2)
    End With
Next i
end sub


Cependant, en faisant le pas à pas détaillé, en fonction de la forme cela ne tourne pas de le même sens c'est à dire que parfois cela me récupère les points dans le sens des aiguilles d'une montre et d'autres fois dans l'autre sens.
Je souhaiterais que la récupération se fasse toujours dans le même sens, avez vous une idée de comment faire cela ?

Merci à tous pour votre aide
Bien à vous
Cédric