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


Объект 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 и обратная связь.