Gradient fill macro

[thinksriniii]

Hi Guys,

I am trying to use a VBA script to fill a shape with Green and Amber based on the value in the column D.

1) If the value is equal to 1 then the shape needs to be filled totally by green
2) If the value is closer to 0 then the shape needs to be filled by Amber

The problem is point 1 is not working properly.

Sub Update_Status()
With Worksheets("Status").Shapes("Rectangle 1").Fill
.TwoColorGradient Style:=msoGradientVertical, Variant:=1
.ForeColor.RGB = RGB(154, 205, 50)
.BackColor.RGB = RGB(255, 140, 0)
.GradientStops.Insert RGB(255, 140, 0), Sheets("completed").Range("D3").Value
End With

Thanks in advance

 

[thinksriniii]

Hi Guys,

I am trying to use a VBA script to fill a shape with Green and Amber based on the value in the column D.

1) If the value is equal to 1 then the shape needs to be filled totally by green
2) If the value is closer to 0 then the shape needs to be filled by Amber

The problem is point 1 is not working properly (Still the shape has some amber in it).



Thanks in advance

any suggestion guys?