一、ExtraColors对象
代表演示文稿中的其他颜色。该对象最多可以包含八种颜色，每种颜色由一个 RGB 值表示。
使用ExtraColors
使用 ExtraColors 属性返回 ExtraColors 对象。使用 ExtraColors(index) 返回单个其他颜色的红-绿-蓝（RGB）值，其中 index 是其他颜色索引号。以下示例在当前演示文稿的第一张幻灯片中添加一个矩形，并将前景填充颜色设为第一种其他颜色。如果演示文稿中没有定义任何其他颜色，此示例将失败。
With ActivePresentation
Set rect = .Slides(1).Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200)
rect.Fill.ForeColor.RGB = .ExtraColors(1)
End With
使用 Add 方法添加其他颜色。以下示例在当前演示文稿中添加一个其他颜色（如果该颜色尚未被添加）。
ActivePresentation.ExtraColors.Add RGB(69, 32, 155)
二、FillFormat对象
代表形状的填充格式。形状可以有单色、过渡、纹理、图案、图片或半透明填充。
使用FillFormat对象
使用 Fill 属性返回 FillFormat 对象。以下示例向 myDocument 中添加矩形并且设置矩形填充的过渡和颜色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With
说明
FillFormat 对象的许多属性是只读的。要设置这些属性，必须使用相应的方法。