Zelle Fülleffekt beeinflussen
03.11.2022 15:17:08
Richi
Suche nach der Lösung wie ich den Fülleffekt einer Zelle ändern kann.
- Momentan ist die Farbe (blau) zu dominant
- Der Übergang von blau zu weiss dürfte klarere Abgrenzung haben
- Weissanteil sollte grösser sein
Gibt es eine Möglichkeit dies in meinem Makro so zu definieren, dass ich die oben aufgeführten Punkte beeinflussen kann?
Hoffe ihr könnt mir da weiterhelfen.
Liebe Gruess
Richi
Sub einfärben()
With Selection.Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
With Selection.Interior.Gradient.ColorStops.Add(0)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(0.5)
.Color = 12611584
.TintAndShade = 0
End With
With Selection.Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End Sub