Thema Datum  Von Nutzer Rating
Antwort
Rot Linien statt Rectangle
22.08.2024 10:23:15 Mr. R,
NotSolved
22.08.2024 22:48:25 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Mr. R,
Datum:
22.08.2024 10:23:15
Views:
205
Rating: Antwort:
  Ja
Thema:
Linien statt Rectangle

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Linien statt Rectangle
22.08.2024 10:23:15 Mr. R,
NotSolved
22.08.2024 22:48:25 xlKing
NotSolved