Свойство ColorScheme.Colors (Издатель)

Статья
04/07/2023

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

Синтаксис

expression. Colors (ColorIndex)

Выражение Переменная, представляющая объект ColorScheme .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
ColorIndex	Обязательный	PbSchemeColorIndex	Цвет из возвращаемой схемы на основе ее функции в схеме. Может быть одной из констант PbSchemeColorIndex , объявленных в библиотеке типов издателя Майкрософт.

Возвращаемое значение

ColorFormat

Пример

В следующем примере выполняется цикл по коллекции ColorSchemes и выполняется поиск цветовых схем, где следующий цвет гиперссылки соответствует цвету с RGB-значением 128.

Dim cscLoop As ColorScheme 
Dim colTemp As ColorFormat 
 
For Each cscLoop In Application.ColorSchemes 
 With cscLoop 
 Set colTemp = .Colors(ColorIndex:=pbSchemeColorFollowedHyperlink) 
 If colTemp.RGB = RGB(128, 0, 0) Then 
 Debug.Print "Color scheme '" & .Name _ 
 & "' has a followed hyperlink " _ 
 & "color matching RGB(128, 0, 0)" 
 End If 
 End With 
Next cscLoop

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

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

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