Dim arrPt As Array
        arrPt = Array.CreateInstance(GetType(Single), New Integer() {4, 2}, New _
          Integer() {1, 1})
        arrPt.SetValue(50, 1, 1)
        arrPt.SetValue(100, 1, 2)
        arrPt.SetValue(90, 2, 1)
        arrPt.SetValue(200, 2, 2)
        arrPt.SetValue(35, 3, 1)
        arrPt.SetValue(150, 3, 2)
        arrPt.SetValue(50, 4, 1)
        arrPt.SetValue(100, 4, 2)
 
        Dim dreieck As Word.Shape = doc.Shapes.AddPolyline(arrPt)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist