Füllungsprobleme nach Kombinieren X5

[norre]

Hallo,
der Code ist von Hendrik Wagenaar http://community.coreldraw.com/forums/p/...aspx#40842

Code:

Sub ToggleWindingRuleOfSelectedObjects()
    Dim s As Shape
    For Each s In ActiveSelection.Shapes
        If s.Type = cdrCurveShape Then
            If s.FillMode = cdrFillWinding Then
                s.FillMode = cdrFillAlternate
            Else
                s.FillMode = cdrFillWinding
            End If
        End If
    Next s
End Sub

obs mit X3 läuft müßtet du testen, in X4 gehts.