Classe ColorFormat - a cor de um objeto (Word VBA)

A classe ColorFormat representa a cor de primeiro plano ou de um objeto de uma cor ou cor de plano de fundo de um objeto com um preenchimento gradiente ou padronizado. Você pode definir as cores com um valor vermelho-verde-azul explícito usando o RGB propriedade. Para usar uma variável de classe ColorFormat, ela primeiro precisa ser instanciada por exemplo


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

Brightness

Retorna um único que representa o brilho de uma cor de forma especificada. Leitura/gravação.

Você pode inserir um número de -1 (mais escuro) até 1 (mais claro) para a propriedade Brightness, 0 (zero) é 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

Retorna ou define uma constante WdThemeColorIndex que representa a cor do tema de um formato de cor. Leitura/gravação. Aqui você pode encontrar os valores possíveis para WdThemeColorIndex.


Selection.Font.TextColor.ObjectThemeColor = wdNotThemeColor

RGB

Retorna ou define o valor vermelho-verde-azul RGB da cor especificada. Long de leitura/gravação.


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

TintAndShade

Retorna um único que representa a luminosidade ou escurecimento da cor de uma forma especificada. Leitura/gravação.

Você pode inserir um número de -1 (mais escuro) até 1 (mais claro) para a propriedade TintAndShade, 0 (zero) sendo 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

Retorna ou define o tipo de cor da forma. Somente leitura MsoColorType.


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