As part of a major report, i need to change the color/s of a prenamed shape.
I need to color fill the shape as gradient in 2 colors.
I tried the following googled code, but i get an error with it.
Can anyone assist in the correct gradient fill syntax for the beloiw:
With ActiveSheet.Shapes("TWOTONESHAPE")
.Fill.TwoColorGradient msoGradientHorizontal, 1
.Fill.GradientStop(1) = RGB(255, 0, 0) ' <=== Error location !
.Fill.GradientStop(1).stopPosition = 0
.Fill.GradientStop(2) = RGB(128, 122, 201)
.Fill.GradientStop(2).stopPosition = 50
End With
Bookmarks