FillFormat.BackColor (Word)

Devuelve o establece un objeto ColorFormat que representa el color de fondo para el relleno de lectura y escritura.

Dim docActive As Document 
 
Set docActive = ActiveDocument 
 
With docActive.Shapes.AddShape(msoShapeRectangle, _ 
 90, 90, 90, 50).Fill 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .BackColor.RGB = RGB(170, 170, 170) 
 .TwoColorGradient msoGradientHorizontal, 1 
End With