Shapes.AddPolyline (Excel)

Crée une polyligne ouverte ou un polygone fermé. Renvoie un objet Shape qui représente la nouvelle polyligne ou le polygone.

Pour former un polygone fermé, affectez les mêmes coordonnées aux premier et dernier sommets dans le dessin en forme de polyligne.

AddPolyline (SafeArrayOfPoints)

SafeArrayOfPoints: Tableau de paires de coordonnées qui indique les sommets du dessin en forme de polyligne.

Dim triArray(1 To 4, 1 To 2) As Single 
triArray(1, 1) = 25 
triArray(1, 2) = 100 
triArray(2, 1) = 100 
triArray(2, 2) = 150 
triArray(3, 1) = 150 
triArray(3, 2) = 50 
triArray(4, 1) = 25 ' Last point has same coordinates as first 
triArray(4, 2) = 100 
Set myDocument = Worksheets(1) 
myDocument.Shapes.AddPolyline triArray