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
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