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