linien zur fläche verbinden
Detlef
ich hab mit diesem Makro ein rombus gezeichnet
Sub rombus()
ActiveSheet.Shapes.AddLine 100, 100, 200, 200
ActiveSheet.Shapes.AddLine 200, 200, 300, 100
ActiveSheet.Shapes.AddLine 300, 100, 200, 0
ActiveSheet.Shapes.AddLine 200, 0, 100, 100
End Sub
und möchte die Linien jetzt verbinden damit ich die fläche mit farbe ausfüllen kann
das nächste makro kann ich so nicht nutzen da ich die linien auch noch als sololinie benötige
'
Sub beispiel()'zeichnet keinen rombus
'Dim sha As Object
'Set sha = ActiveSheet.Shapes.BuildFreeform(msoEditingAuto, 100, 100)
'sha.AddNodes msoSegmentLine, msoEditingAuto, 200, 200
'sha.AddNodes msoSegmentLine, msoEditingAuto, 300, 100
'sha.ConvertToShape
'End Sub