Two-Color Gradient Fill?
 

I've discovered the gradient fill for shapes, which I really like. But
it always seems to use black for the shading and a VBA statement such
as Fill OneColorGradient. Evidently the RGB colors are used for the
forecolor, but the back color is black for the shading. Is there a way
to use a TwoColorGradient, using the back RGB colors for the shading?
TIA, James

Two-Color Gradient Fill?
 

Sub ABC()
Set myDocument = Worksheets(2)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(239, 250, 130)
.BackColor.RGB = RGB(226, 154, 212)
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub

--
Regards,
Tom Ogilvy


"Zone" wrote:

I've discovered the gradient fill for shapes, which I really like. But
it always seems to use black for the shading and a VBA statement such
as Fill OneColorGradient. Evidently the RGB colors are used for the
forecolor, but the back color is black for the shading. Is there a way
to use a TwoColorGradient, using the back RGB colors for the shading?
TIA, James

Two-Color Gradient Fill?
 

Sheesh, that was easy. Thanks, Tom.
Tom Ogilvy wrote:
Sub ABC()
Set myDocument = Worksheets(2)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(239, 250, 130)
.BackColor.RGB = RGB(226, 154, 212)
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub

--
Regards,
Tom Ogilvy


"Zone" wrote:

I've discovered the gradient fill for shapes, which I really like. But
it always seems to use black for the shading and a VBA statement such
as Fill OneColorGradient. Evidently the RGB colors are used for the
forecolor, but the back color is black for the shading. Is there a way
to use a TwoColorGradient, using the back RGB colors for the shading?
TIA, James

Two-Color Gradient Fill?
 

Perfect info on this macro. Now if I can just get the color directional
correct. :)

"Zone" wrote:

Sheesh, that was easy. Thanks, Tom.
Tom Ogilvy wrote:
Sub ABC()
Set myDocument = Worksheets(2)
With myDocument.Shapes.AddShape(msoShapeRectangle, _
90, 90, 90, 50).Fill
.ForeColor.RGB = RGB(239, 250, 130)
.BackColor.RGB = RGB(226, 154, 212)
.TwoColorGradient msoGradientHorizontal, 1
End With
End Sub

--
Regards,
Tom Ogilvy


"Zone" wrote:

I've discovered the gradient fill for shapes, which I really like. But
it always seems to use black for the shading and a VBA statement such
as Fill OneColorGradient. Evidently the RGB colors are used for the
forecolor, but the back color is black for the shading. Is there a way
to use a TwoColorGradient, using the back RGB colors for the shading?
TIA, James