Classe ColorFormat - la couleur (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.

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. Ici on trouve valeurs possible pour WdThemeColorIndex.

Selection.Font.TextColor.ObjectThemeColor = wdNotThemeColor

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