ColorFormat Object

Multiple objects ColorFormat

Represents the color of a one-color object, the foreground or background color of an object with a gradient or patterned fill, or the pointer color. You can set colors to an explicit red-green-blue value (by using the RGB property) or to a color in the color scheme (by using the SchemeColor property).

Using the ColorFormat Object

Use one of the properties listed in the following table to return a ColorFormat object.

Use this property	With this object	To return a ColorFormat object that represents this
DimColor	AnimationSettings	Color used for dimmed objects
BackColor	FillFormat	Background fill color (used in a shaded or patterned fill)
ForeColor	FillFormat	Foreground fill color (or simply the fill color for a solid fill)
Color	Font	Bullet or character color
BackColor	LineFormat	Background line color (used in a patterned line)
ForeColor	LineFormat	Foreground line color (or just the line color for a solid line)
ForeColor	ShadowFormat	Shadow color
PointerColor	SlideShowSettings	Default pointer color for a presentation
PointerColor	SlideShowView	Temporary pointer color for a view of a slide show
ExtrusionColor	ThreeDFormat	Color of the sides of an extruded object

Use the SchemeColor property to set the color of a slide element to one of the colors in the standard color scheme. The following example sets the text color for shape one on slide two in the active presentation to the standard color-scheme title color.

ActivePresentation.Slides(2).Shapes(1).TextFrame _
    .TextRange.Font.Color.SchemeColor = ppTitle

Use the RGB property to set a color to an explicit red-green-blue value. The following example adds a rectangle to myDocument and then sets the foreground color, background color, and gradient for the rectangle's fill.

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