Averiguar codigo Hexadecimal del color de fondo de una celda

05/10/2007 - 13:31 por Sergio Gimeno | Informe spam
La cuestión es la siguiente: quiero utilizar el formato condicional para que
en unas celdas (x) cuando x<=0 el color del texto se iguale al del fondo
para que el texto desaparezca. pero hay aplicado un color de fondo que no es
el por defecto. ¿Podría averiguar el código hexadecimal del color que quiero
igualar, igual que en programas como Photoshop, o tengo que igualarlo a
ojimetro o aproximarlo?.

¿se entendió?.

Gracias.


Saludos desde Valencia (España)
 

Leer las respuestas

#1 Héctor Miguel
05/10/2007 - 19:56 | Informe spam
hola, Sergio !

... quiero utilizar el formato condicional para que... el color del texto se iguale al del fondo
... pero hay aplicado un color de fondo que no es el por defecto.
Podria averiguar el codigo hexadecimal del color que quiero igualar
igual que en programas como Photoshop, o tengo que igualarlo a ojimetro o aproximarlo?.



en los FC puedes establecer el mismo color/trama/color de trama que tenga/n esa/s celda/s
[dependiendo de *como* hayas aplicado color a las celdas que no sea *por defecto* -???-]

o podrias averiguar color/trama/color de trama por codigo [p.e. de la celda activa]...
preguntando por el *Interior* y las propiedades *.ColorIndex*, *.Pattern* y *.PatternColorIndex*
-> con una macro +/- como la siguiente:

Sub ColoresEnCeldaActiva()
With ActiveCell.Interior
MsgBox "Indice" & vbTab & "Hex" & vbTab & "Elemento" & vbCr & String(45, "-") & vbCr & _
.ColorIndex & vbTab & Hex(.ColorIndex) & vbTab & "Relleno (color de)" & vbCr & _
.Pattern & vbTab & Hex(.Pattern) & vbTab & "Trama (estilo de)" & vbCr & _
.PatternColorIndex & vbTab & Hex(.PatternColorIndex) & vbTab & "Trama (color de)", , _
"Colores de la celda activa:"
End With
End Sub

[aunque] no entiendo para que necesitarias estos datos en hexadecimal -???-

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares