Objet ColorsInUse (Publisher)

  • Article

Collection d'objets ColorFormat qui représentent les couleurs dans la composition spécifiée.

Remarques

La collection ColorsInUse prend en charge tous les modèles de couleurs de composition : RVB, quadrichromie et ton direct.

Pour les compositions en quadrichromie et en ton direct, les couleurs sont basées sur des encres. Pour une encre spécifique, une composition peut contenir plusieurs couleurs qui constituent différentes teintes ou nuances de cette encre. Utilisez la collection Plates pour accéder aux plaques représentant les encres définies pour une composition.

Exemple

L'exemple suivant répertorie les propriétés de chaque couleur dans la composition active basée sur l'encre spécifiée. Dans cet exemple, nous supposons que le mode de couleurs de la composition a été définie en tant que ton direct ou ton direct et quadrichromie.

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

L'exemple suivant retourne les propriétés pour la deuxième couleur dans la composition.

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

Propriétés

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.