Поделиться через

Shape.Fill Property (Publisher)

  • Статья

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

Syntax

expression .Fill

expression A variable that represents a Shape 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