|
Hallo,
ich habe folgendes Problem:
Ich möchte eine Figur programmieren, die sich aus Liniensegmenten, Viertel- und Halbkreisen zusammensetzt.
Irgendwie gelingt es mir nicht, innerhalb eines Shapes das Ende des Halbkreises mit einem folgenden Liniensegment zu verbinden.
Hier eine Beispielzeichnung zur Verdeutlichung:
Gerne würde ich es analog dem unteren Code machen, nur statt des msoSegmentCurve brauche ich ein Arc-Segment, was es aber anscheinend nicht gibt.
Stattdessen finde ich nur msoShapeArc, was sich aber leider nicht mit AddNodes einfügen lässt. Zumindest bekomme ich es nicht hin.
Bin für jede Hilfe dankbar.
Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
.AddNodes msoSegmentCurve, msoEditingCorner, _
380, 230, 400, 250, 450, 300
.AddNodes msoSegmentCurve, msoEditingCorner, 480, 200
.AddNodes msoSegmentLine, msoEditingCorner, 480, 400
'.AddNodes msoSegmentLine, msoEditingAuto, 360, 200
.ConvertToShape
End With
VG
Marc
|