Compartilhar via


Propriedade Application.ColorSchemes (Publisher)

Retorna uma coleção ColorSchemes que representa os esquemas de cores disponíveis.

Sintaxe

expressão. ColorSchemes

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

ColorSchemes

Exemplo

O exemplo a seguir circula a coleção ColorSchemes e exibe o nome de cada esquema de cor e o valor RGB da cor de hiperlinks visitados em cada esquema.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.