Shapes.AddPolyline (Excel)

Crea una polilínea abierta o un polígono cerrado de dibujo. Devuelve un objeto Shape que representa la nueva polilínea o el polígono.

Para formar un polígono cerrado, asigne las mismas coordenadas a los vértices inicial y final del dibujo del polígono.

AddPolyline (SafeArrayOfPoints)

SafeArrayOfPoints: Matriz de pares de coordenadas que especifica los vértices de dibujo de la polilínea.

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