With shp.Fill
                    ' Setze die Anzahl der Farbstopps
                    .OneColorGradient msoGradientVertical, 1, 0.5
                    
                    ' Anpassen der GradientStops
                    With .GradientStops(1)
                        .Position = 0.2
                        .Color.RGB = RGB(75, 0, 130)
                    End With
                    With .GradientStops(2)
                        .Position = 0
                        .Color.RGB = RGB(204, 153, 255)
                    End With
Ich möchte gerne einen Farbübergang von Dunkel-Lila auf Hell Lila und dann wieder auf Dunkellila erzeugen mit den Gradient stops

Wenn ich jedoch mehr als 2 gradient stops einbaue funktioniert das ganze nicht.

2 gradient stops mit dem twocolorgradient befehl in Kombination funktioniert ebenfalls nicht

hat jemand eine Idee wie ich meine Form so färben kann wie ich es möchte?

Wäre für die Hilfe sehr dankbar.

Die form ist übrigens ein etwas dickerer Strich der als rounded rectangle agiert da ich ansonsten keine gradients verwenden kann.

bitte um Hilfe gruß