Objeto ColorsInUse (Publisher)

Uma coleção de objetos ColorFormat que representam as cores presentes na publicação específica.

Comentários

A coleção ColorsInUse aceita todos os modelos de cor de publicação: RGB, cores de escala e cor especial.

Para publicações em cores de escala e especiais, as cores se baseiam nas tintas. Para uma tinta determinada, a publicação pode conter várias cores que são matizes ou tons diferentes daquela tinta. Use a coleção Plates para acessar as chapas que representam as tintas definidas para uma publicação.

Exemplo

O exemplo a seguir lista as propriedades de cada cor na publicação ativa baseada na tinta especificada. O exemplo supõe que o modo de cor da publicação foi definido como cor especial ou de escala e cor especial.

Sub ListColorsBasedOnInk() 
Dim cfLoop As ColorFormat 
 
For Each cfLoop In ActiveDocument.ColorsInUse 
 
 With cfLoop 
 If .Ink = "2" Then 
 Debug.Print "BaseRGB: " & .BaseRGB 
 Debug.Print "RGB: " & .RGB 
 Debug.Print "TintShade: " & .TintAndShade 
 Debug.Print "Type: " & .Type 
 End If 
 End With 
 
Next cfLoop 
 
End Sub

O exemplo a seguir retorna as propriedades da segunda cor na publicação.

Sub ColorProperties() 
 
 With ActiveDocument.ColorsInUse(2) 
 Debug.Print "Color RBG: " & .RGB 
 Debug.Print "Ink RBG: " & .BaseRGB 
 Debug.Print "Tint: " & .TintAndShade 
 
 End With 
 
End Sub

Propriedades

• Aplicativo
• Count
• Item
• Parent

Confira também

• Referência de modelo de objeto publisher

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.