Definir uma cor de fonte em VBA
Pergunta
Eu quero definir a cor da fonte de uma célula para um valor específico RGB.
Se eu usar
ActiveCell.Color = RGB(255,255,0)
Eu fico amarelo, mas se eu usar um valor RGB mais exóticos como:
ActiveCell.Color = RGB(178, 150, 109)
Eu só pegar uma cor cinza de volta.
Como é que eu não posso simplesmente usar qualquer valor RGB? E você sabe quaisquer soluções alternativas?
Graças.
Solução
Excel utiliza apenas as cores na paleta de cores. Quando você define uma célula usando o valor RGB, ele escolhe a da paleta que é a correspondência mais próxima. Você pode atualizar a paleta com as suas cores e, em seguida, escolher sua cor e que vai funcionar.
Isso permitirá que você veja o que está atualmente na paleta:
Public Sub checkPalette()
Dim i As Integer, iRed As Integer, iGreen As Integer, iBlue As Integer
Dim lcolor As Long
For i = 1 To 56
lcolor = ActiveWorkbook.Colors(i)
iRed = lcolor Mod &H100 'get red component
lcolor = lcolor \ &H100 'divide
iGreen = lcolor Mod &H100 'get green component
lcolor = lcolor \ &H100 'divide
iBlue = lcolor Mod &H100 'get blue component
Debug.Print "Palette " & i & ": R=" & iRed & " B=" & iBlue & " G=" & iGreen
Next i
End Sub
Isso permitirá que você definir a paleta ??p>
Public Sub setPalette(palIdx As Integer, r As Integer, g As Integer, b As Integer)
ActiveWorkbook.Colors(palIdx) = RGB(r, g, b)
End Sub
Outras dicas
Uma dica rápida: Paleta Excel tem duas linhas de cores que raramente são utilizadas e, geralmente, podem ser definidas para valores personalizados sem alterações visíveis para folhas de outras pessoas.
Aqui está o código para criar um conjunto razoável de cores 'de tom suave', que são muito menos ofensivo do que os padrões:
Public Sub SetPalePalette(Optional wbk As Excel.Workbook) ' This subroutine creates a custom palette of pale tones which you can use for controls, headings and dialogues '
' ** THIS CODE IS IN THE PUBLIC DOMAIN ** ' Nigel Heffernan http://Excellerando.Blogspot.com
' The Excel color palette has two hidden rows which are rarely used: ' Row 1: colors 17 to 24 ' Row 2: colors 25 to 32 - USED BY SetGrayPalette in this workbook '
' Code to capture existing Screen Updating settting and, if necessary, ' temporarily suspend updating while this procedure generates irritating ' flickers onscreen... and restore screen updating on exit if required.
Dim bScreenUpdating As Boolean
bScreenUpdating = Application.ScreenUpdating
If bScreenUpdating = True Then Application.ScreenUpdating = False End If
'If Application.ScreenUpdating <> bScreenUpdating Then ' Application.ScreenUpdating = bScreenUpdating 'End If
If wbk Is Nothing Then Set wbk = ThisWorkbook End If
With wbk
.Colors(17) = &HFFFFD0 ' pale cyan .Colors(18) = &HD8FFD8 ' pale green. .Colors(19) = &HD0FFFF ' pale yellow .Colors(20) = &HC8E8FF ' pale orange .Colors(21) = &HDBDBFF ' pale pink .Colors(22) = &HFFE0FF ' pale magenta .Colors(23) = &HFFE8E8 ' lavender .Colors(24) = &HFFF0F0 ' paler lavender
End With
If Application.ScreenUpdating <> bScreenUpdating Then Application.ScreenUpdating = bScreenUpdating End If
End Sub
Public Sub SetGreyPalette() ' This subroutine creates a custom palette of greyshades which you can use for controls, headings and dialogues
' ** THIS CODE IS IN THE PUBLIC DOMAIN ** ' Nigel Heffernan http://Excellerando.Blogspot.com
' The Excel color palette has two hidden rows which are rarely used: ' Row 1: colors 17 to 24 ' - USED BY SetPalePalette in this workbook ' Row 2: colors 25 to 32
' Code to capture existing Screen Updating settting and, if necessary, ' temporarily suspend updating while this procedure generates irritating ' flickers onscreen... remember to restore screen updating on exit!
Dim bScreenUpdating As Boolean
bScreenUpdating = Application.ScreenUpdating
If bScreenUpdating = True Then Application.ScreenUpdating = False End If
'If Application.ScreenUpdating <> bScreenUpdating Then ' Application.ScreenUpdating = bScreenUpdating 'End If
With ThisWorkbook .Colors(25) = &HF0F0F0 .Colors(26) = &HE8E8E8 .Colors(27) = &HE0E0E0 .Colors(28) = &HD8D8D8 .Colors(29) = &HD0D0D0 .Colors(30) = &HC8C8C8 ' &HC0C0C0 ' Skipped &HC0C0C0 - this is the regular 25% grey in the main palette .Colors(31) = &HB8B8B8 ' Note that the gaps are getting wider: the human eye is more sensitive .Colors(32) = &HA8A8A8 ' to changes in light greys, so this will be perceived as a linear scale End With
'The right-hand column of the Excel default palette specifies the following greys:
' Colors(56) = &H333333 ' Colors(16) = &H808080 ' Colors(48) = &H969696 ' Colors(15) = &HC0C0C0 ' the default '25% grey'
' This should be modified to improve the color 'gap' and make the colours easily-distinguishable:
With ThisWorkbook .Colors(56) = &H505050 .Colors(16) = &H707070 .Colors(48) = &H989898 ' .Colors(15) = &HC0C0C0 End With
If Application.ScreenUpdating <> bScreenUpdating Then Application.ScreenUpdating = bScreenUpdating End If
End Sub
Você pode optar por escrever uma 'CaptureColors' e função 'ReinstateColors' para Open de cada pasta de trabalho () e BeforeClose () eventos ... ou mesmo para ativar de cada planilha e evento deactivate.
Eu tenho o código em torno de mentir em algum lugar que cria um gradiente de cor 'térmico' para os gráficos 3-D, o que lhe dá uma progressão de 'Cold' azul para vermelho 'quente' em trinta e dois passos. Isso é mais difícil do que você imagina: um gradiente de cores que serão percebidas como 'intervalos iguais' pelo sistema visual humano (que roda em uma escala logarítmica de intensidade e tem ponderações não-lineares para como cores 'fortes' vermelhos, verdes e azuis ) leva tempo para construir -. e você tem que usar o VBA para coagir MS Chart em usar as cores que você especificar, na ordem especificada
Sub color()
bj = CStr(Hex(ActiveCell.Interior.Color))
If Len(bj) < 6 Then
Do Until Len(bj) = 6
bj = "0" & bj
Loop
End If
R = CLng("&H" & Right(bj, 2))
bj = Left(bj, Len(bj) - 2)
G = CLng("&H" & Right(bj, 2))
bj = Left(bj, Len(bj) - 2)
B = CLng("&H" & bj)
End Sub
Obrigado pelas respostas e os comentários também.
Ele realmente me deu grande dificuldade, porque o meu cliente tinha outros plugins instalados em Excel que também adulterado a paleta de cores.
acabei substituindo algumas cores na paleta de um então asigning meus elementos do específico ColorIndex, mas o menino, não é bonito.