Fehlerhafte Knoten-Griffe automatisch finden

[koter]

Hallo Asterix,

hab ich es also wieder nicht kapiert!

OK, versuch es mit diesem Makro:

Code:

Sub KnotenWenden()
   Dim s As Shape
   Dim C As Curve
   Dim KR As NodeRange
   Dim K As Node
   Dim KAnz As Double
   If ActiveSelectionRange.Count <> 1 Then Exit Sub
   Set s = ActiveShape
   Set C = s.Curve
   Set KR = s.Curve.Selection
   KAnz = s.Curve.Nodes.Count
   For Each K In KR
       If K.Index = 1 Then
           C.Segments.First.StartingControlPointAngle = C.Segments.First.StartingControlPointAngle + 180
           K.CreateSelection
           Exit For
       End If
       If K.Index = KAnz Then
           C.Segments.Last.EndingControlPointAngle = C.Segments.Last.EndingControlPointAngle + 180
           K.CreateSelection
           Exit For
       End If
   Next
End Sub

Du musst den Knoten mit dem Form-Werkzeug auswählen und dann das Makro starten.

Gruß

Koter