返回一个 FillFormat 对象,该对象包含指定形状的填充格式属性。只读。
本示例在 myDocument
中添加一个矩形,然后设置矩形填充的前景色、背景色和过渡。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.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