Clase ColorFormat (Word VBA)

La clase ColorFormat representa el color de primer plano o de un objeto de un color o un color de fondo de un objeto con un relleno degradado o entramado.

Set

Para usar una variable de clase ColorFormat, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase ColorFormat : FillFormat.BackColor, FillFormat.ForeColor, Font.TextColor, GlowFormat.Color, LineFormat.BackColor, LineFormat.ForeColor, ShadowFormat.ForeColor, ThreeDFormat.ContourColor y ThreeDFormat.ExtrusionColor

Brightness

Devuelve un valor Single que representa el brillo de un color de forma especificado.

Puede escribir un número comprendido entre -1 (más oscuro) y 1 (más claro) para la propiedad Brightness, siendo 0 (cero) neutro.

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

Devuelve o establece una constante WdThemeColorIndex que indica el color del tema de un formato de color.

Valores posibles son wdNotThemeColor - Sin color, wdThemeColorAccent1 - Color de énfasis 1, wdThemeColorAccent2 - Color de énfasis 2, wdThemeColorAccent3 - Color de énfasis 3, wdThemeColorAccent4 - Color de énfasis 4, wdThemeColorAccent5 - Color de énfasis 5, wdThemeColorAccent6 - Color de énfasis 6, wdThemeColorBackground1 - Color de fondo 1, wdThemeColorBackground2 - Color de fondo 2, wdThemeColorHyperlink - Colore de hipervínculo, wdThemeColorHyperlinkFollowed - Color de hipervínculo visitado, wdThemeColorMainDark1 - Color principal oscuro 1, wdThemeColorMainDark2 - Color principal oscuro 2, wdThemeColorMainLight1 - Color principal claro 1, wdThemeColorMainLight2 - Color principal claro 2, wdThemeColorText1 - Color del texto 1, wdThemeColorText2 - Color del texto 2.
Selection.Font.TextColor.ObjectThemeColor = wdNotThemeColor

Parent

Devuelve un objeto Object que representa el objeto primario del objeto ColorFormat especificado.

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

RGB

Devuelve o establece el valor rojo, verde y azul (RGB) del color especificado.

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

TintAndShade

Devuelve un valor Single que representa la iluminación o oscurecimiento del color de una forma especificada.

Puede escribir un número comprendido entre -1 (más oscuro) y 1 (más claro) para la propiedad TintAndShade; el valor 0 (cero) es neutro.

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

Devuelve o establece el tipo de color.

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