Объект ColorScheme (PowerPoint)
Представляет цветовую схему, которая представляет собой набор из восьми цветов, используемых для различных элементов слайда, страницы заметок или раздаточных материалов, таких как название или фон. (Обратите внимание, что цветовые схемы для слайдов, страниц заметок и раздаточных материалов в презентации можно задавать независимо.)
Замечания
Каждый цвет представлен объектом RGBColor . Объект ColorScheme является членом коллекции ColorSchemes . Коллекция ColorSchemes содержит все цветовые схемы в презентации.
В следующих примерах описано, как сделать следующее:
Возврат объекта ColorScheme из коллекции всех цветовых схем в презентации
Возврат объекта ColorScheme, присоединенного к определенному слайду или образцу
Возврат цвета одного элемента слайда из объекта ColorScheme
Пример
Используйте ColorSchemes (index), где index — это номер индекса цветовой схемы, чтобы вернуть один объект ColorScheme . В следующем примере из активной презентации удаляется цветовая схема 2.
ActivePresentation.ColorSchemes(2).Delete
Задайте свойство ColorSchemeобъекта Slide, SlideRange или Master , чтобы вернуть цветовую схему для одного слайда, набора слайдов или образца соответственно. В следующем примере создается цветовая схема на основе текущего слайда, добавляется новая цветовая схема в коллекцию стандартных цветовых схем для презентации, а цветовая схема для образца слайдов устанавливается в новую цветовую схему. Все новые слайды на основе образца будут иметь эту цветовую схему.
Set newScheme = ActiveWindow.View.Slide.ColorScheme
newScheme.Colors(ppTitle).RGB = RGB(0, 150, 250)
Set newStandardScheme = _
ActivePresentation.ColorSchemes.Add(newScheme)
ActivePresentation.SlideMaster.ColorScheme = newStandardScheme
Используйте метод Colorsдля возврата объекта RGBColor , представляющего цвет одного типа элемента слайда. Можно задать объект RGBColor для другого объекта RGBColor или использовать свойство RGB, чтобы задать или вернуть явное значение rgb-зеленого-синего (RGB) для объекта RGBColor . В следующем примере для цвета фона в цветовой схеме один задается красный, а для цвета заголовка — цвет заголовка, определенный для двух цветовых схем.
With ActivePresentation.ColorSchemes
.Item(1).Colors(ppBackground).RGB = RGB(255, 0, 0)
.Item(1).Colors(ppTitle) = .Item(2).Colors(ppTitle)
End With
См. также
Справочник по объектной модели PowerPoint
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.