|
Hallo Zusammen,
ich versuche gerade den Farbverlauf eines Objekts in Excel über vba dynamisch anzupassen.
Dafür muss ich die Position(Prozent) des Farbverlaufstops über eine Variable zusteuern. Später wird der Wert dynamisch berechnet, für Testzwecke hole ich sie aus einer Zelle. Leider wird meine Variable an der Stelle nicht akzeptiert.
Hat jemand eine Idee?
Sub dynamiccolor()
Percentage_Gradient1 = Worksheets("CALC").Range("I123").Value
Set colorgradient = Worksheets("CALC").Shapes("Farbverlauf1").Fill
With colorgradient
.ForeColor.RGB = RGB(0, 255, 0)
.OneColorGradient msoGradientVertical, 1, 1
.GradientStops.Insert RGB(255, 255, 0), Percentage_Gradient1
.GradientStops.Insert RGB(255, 200, 0), 0.5
.GradientStops.Insert RGB(255, 0, 0), 0.75
.GradientStops.Insert RGB(205, 0, 0), 0.88
.GradientStops.Insert RGB(205, 0, 0), 0.99
End With
End Sub
VG Matthias
|