Объект ColorFormat (PowerPoint)

Представляет цвет одноцветного объекта, цвет переднего плана или фона объекта с градиентной или узорчатой заливкой или цвет указателя. Для цветов можно задать явное красно-зелено-синее значение (с помощью свойства RGB ) или цвет в теме (с помощью [ObjectThemeColor]) или устаревшую цветовую схему до Office 2007 (с помощью свойства SchemeColor ).

Замечания

Используйте одно из свойств, перечисленных в следующей таблице, чтобы вернуть объект ColorFormat .

Используйте это свойство	С этим объектом	Возврат объекта ColorFormat, представляющего этот объект
DimColor	AnimationSettings	Цвет, используемый для затемненных объектов
BackColor	FillFormat	Цвет заливки фона (используется в заливке с затенением или узором)
ForeColor	FillFormat	Цвет заливки переднего плана (цвет заливки для сплошной заливки)
Color	Font	Маркер или цвет символа
BackColor	LineFormat	Цвет линии фона (используется в узорчатой линии)
ForeColor	LineFormat	Цвет линии переднего плана (или просто цвет линии для сплошной линии)
ForeColor	ShadowFormat	Цвет тени
PointerColor	SlideShowSettings	Цвет указателя по умолчанию для презентации
PointerColor	SlideShowView	Временный цвет указателя для представления слайд-шоу
ExtrusionColor	ThreeDFormat	Цвет сторон экструдированного объекта

Пример

Используйте свойство SchemeColor , чтобы задать цвет элемента слайда как один из цветов в стандартной цветовой схеме. В следующем примере задается цвет текста для фигуры на слайде 2 в активной презентации в стандартном цвете заголовка цветовой схемы.

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

Используйте свойство RGB , чтобы задать для цвета явное красно-зелено-синее значение. В следующем примере в 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

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.