Share via

Fill Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a FillFormat object representing the fill for the specified shape or table cell.

expression.Fill

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example creates a new AutoShape object and fills the shape with green.

Sub NewShapeItem()

    Dim shpHeart As Shape

    Set shpHeart = ThisDocument.MasterPages.Item(1).Shapes _
        .AddShape(Type:=msoShapeHeart, Left:=40, Top:=80, _
        Width:=50, Height:=50)
    shpHeart.Fill.ForeColor.RGB = RGB(Red:=0, Green:=255, Blue:=0)

End Sub

Applies to | Cell Object | PageBackground Object | Shape Object | ShapeRange Collection