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

Свойство Application.ColorSchemes (Publisher)

  • Статья

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

Синтаксис

expression. ColorSchemes

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

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

ColorSchemes

Пример

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

Dim cscLoop As ColorScheme 
Dim cscAll As ColorSchemes 
 
Set cscAll = Application.ColorSchemes 
 
For Each cscLoop In cscAll 
 With cscLoop 
 Debug.Print "Color scheme: " & .Name _ 
 & " / Followed hyperlink color: " _ 
 & .Colors(ColorIndex:=pbSchemeColorFollowedHyperlink).RGB 
 End With 
Next cscLoop

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

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