PageBackground.Fill Property (Publisher)

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


expression. Fill

expression A variable that represents a PageBackground object.


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