Classe ColorFormat (Word VBA)

Cet objet représente la couleur d'un objet unicolore ou de premier plan ou la couleur d'arrière-plan d'un objet avec un remplissage en dégradé ou à motif.

Set

Pour utiliser une variable de classe ColorFormat, elle doit d'abord être instanciée, par exemple

Dim cft as ColorFormat
Set cft = Selection.Font.TextColor

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ColorFormat : FillFormat.BackColor, FillFormat.ForeColor, Font.TextColor, GlowFormat.Color, LineFormat.BackColor, LineFormat.ForeColor, ShadowFormat.ForeColor, ThreeDFormat.ContourColor et ThreeDFormat.ExtrusionColor

Brightness

Renvoie une valeur unique qui représente la luminosité d’une couleur de forme spécifiée.

Vous pouvez entrer un nombre compris entre -1 (sombre) et 1 (le plus clair) pour la propriété Brightness, 0 (zéro) est neutre.

Sub NewTintedShape() 
 Dim shpHeart As Shape 
 
 Set shpHeart = ActiveDocument.Shapes _ 
 .AddShape(Type:=msoShapeHeart, Left:=150, _ 
 Top:=150, Width:=250, Height:=250) 
 With shpHeart.Fill.ForeColor 
 .RGB = RGB(Red:=255, Green:=28, Blue:=0) 
 .Brightness = 0.4 
 End With 
End Sub

ObjectThemeColor

Renvoie ou définit une constante WdThemeColorIndex qui représente la couleur d'un thème pour un format de couleur.

Valeurs possibles sont wdNotThemeColor - Aucune couleur, wdThemeColorAccent1 - Couleur d'accent 1, wdThemeColorAccent2 - Couleur d'accent 2, wdThemeColorAccent3 - Couleur d'accent 3, wdThemeColorAccent4 - Couleur d'accent 4, wdThemeColorAccent5 - Couleur d'accent 5, wdThemeColorAccent6 - Couleur d'accent 6, wdThemeColorBackground1 - Couleur d'arrière-plan 1, wdThemeColorBackground2 - Couleur d'arrière-plan 2, wdThemeColorHyperlink - Couleur des liens hypertexte, wdThemeColorHyperlinkFollowed - Couleur des liens hypertexte visités, wdThemeColorMainDark1 - Couleur principale foncée 1, wdThemeColorMainDark2 - Couleur principale foncée 2, wdThemeColorMainLight1 - Couleur principale claire 1, wdThemeColorMainLight2 - Couleur principale claire 2, wdThemeColorText1 - Couleur de texte 1, wdThemeColorText2 - Couleur de texte 2.
Selection.Font.TextColor.ObjectThemeColor = wdNotThemeColor

Parent

Renvoie un Object qui représente l'objet parent de l'objet ColorFormat spécifié.

Dim objParent As Object
Set objParent = Selection.Font.TextColor.Parent

RGB

Cette propriété renvoie ou définit la valeur rouge-vert-bleu (RVB) de la couleur spécifiée.

ActiveDocument.Shapes(2).Fill.ForeColor.RGB = RGB(128, 128, 128)

TintAndShade

Renvoie une valeur unique qui représente l'éclaircissement ou l'assombrissement de la couleur d'une forme spécifiée.

Vous pouvez entrer un chiffre compris entre -1 (le plus foncé) et 1 (le plus clair) pour la propriété TintAndShade ; la valeur 0 (zéro) a un effet neutre.

Sub NewTintedShape() 
 Dim shpHeart As Shape 
 Set shpHeart = ActiveDocument.Shapes _ 
 .AddShape(Type:=msoShapeHeart, Left:=150, _ 
 Top:=150, Width:=250, Height:=250) 
 With shpHeart.Fill.ForeColor 
 .RGB = RGB(Red:=255, Green:=28, Blue:=0) 
 .TintAndShade = 0.3 
 End With 
End Sub

Type

Cette propriété renvoie ou définit le type de couleur de forme.

Dim mctType As Office.MsoColorType
mctType = Selection.Font.TextColor.Type