Returns or sets a ColorFormat object that represents the foreground color for the fill, line, or shadow. Read/write.
Example
This example adds a rectangle to the active document and then sets the foreground color, background color, and gradient for the rectangle's fill.
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
This example adds a patterned line to the active document.
Dim docActive As Document Set docActive = ActiveDocument
With docActive.Shapes.AddLine(10, 100, 250, 0).Line .Weight = 6 .ForeColor.RGB = RGB(0, 0, 255) .BackColor.RGB = RGB(128, 0, 0) .Pattern = msoPatternDarkDownwardDiagonal End With