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.