Set shp = wsStriche.Shapes.AddShape( _
                    msoShapeRoundedRectangle, _
                    wsStriche.Cells(strichZeile, strichSpalte).Left, _
                    wsStriche.Cells(strichZeile, strichSpalte).Top, _
                    linienLänge, _
                    linienBreite)
                     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(118, 122, 121)
                    End With
                    With .GradientStops(2)
                        .Position = 0
                        .Color.RGB = RGB(19, 27, 29)
                    End With
                        .GradientStops.Insert RGB(19, 27, 29), 1
                        .GradientStops.Insert RGB(118, 122, 121), 0.8
                End With
                shp.Rotation = 20                                              ' Linie auf X Grad drehen
                shp.Line.Visible = msoFalse                                    ' Keine Konturlinie
                shp.Adjustments.Item(1) = 1                                    '  Maximale Abrundung der Ecken

Hallo Zusammen,

Ich habe folgende LinienArtige Form mit Hilfe des rectangles befehl erstellt, da ich leider keine Linie erstellen konnte die abgerundet ist und den Farbverlauf übernimmt. Kann mir jemand weiterhelfen und die Quadrate durch eine ganz normale Linie mit den oben im Code angegebenen Eigenschaften ersetzen oder mir sagen was ich probieren könnte?

Vielen Dank im Voraus.

Grüße, Mr. R.