Edit

Share via

ShapeRange.Fill property (Publisher)

  • Article

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

Syntax

expression.Fill

expression A variable that represents a ShapeRange object.

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

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.