Propriedade ColorScheme.Colors (Publisher)

Artigo
04/07/2023

Retornar um objeto ColorFormat que representa uma cor do esquema de cores especificado.

Sintaxe

expressão. Cores (ColorIndex)

Expressão Uma variável que representa um objeto ColorScheme .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
ColorIndex	Obrigatório	PbSchemeColorIndex	A cor do esquema a ser retornado com base em sua função no esquema. Pode ser uma das constantes PbSchemeColorIndex declaradas na biblioteca de tipos do Microsoft Publisher.

Valor de retorno

ColorFormat

Exemplo

O exemplo a seguir percorre a coleção ColorSchemes e procura esquemas de cores em que a cor do hiperlink a seguir corresponde à cor com o valor RGB de 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

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.

Compartilhar via