Shapes.AddPolyline (Excel)

Creates an open polyline or a closed polygon drawing. Returns a Shape object that represents the new polyline or polygon.

To form a closed polygon, assign the same coordinates to the first and last vertices in the polyline drawing.

AddPolyline (SafeArrayOfPoints)

SafeArrayOfPoints: An array of coordinate pairs that specifies the polyline drawing's vertices.

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