** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - como Saber color hoja excel?
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradocomo Saber color hoja excel?

 Responder Responder
Autor
Mensaje
manurod Ver desplegable
Habitual
Habitual


Unido: 10/Julio/2009
Estado: Sin conexión
Puntos: 90
Enlace directo a este mensaje Tema: como Saber color hoja excel?
    Enviado: 20/Agosto/2010 a las 10:42
Tengo algunas pestañas de un libro con algunos colores que se deben tratar de otra manera, yo se que para asignar el color funciona lo siguiente

Libro.Sheets(Hoja.Name).Tab.Color = vbred

pero para preguntar el color cual seria la forma ?
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 20/Agosto/2010 a las 10:51
Hola!
 
complicada pregunta Wink
 
msgbox Libro.Sheets(Hoja.Name).Tab.Color
Saludos
Arriba
manurod Ver desplegable
Habitual
Habitual


Unido: 10/Julio/2009
Estado: Sin conexión
Puntos: 90
Enlace directo a este mensaje Enviado: 20/Agosto/2010 a las 11:40
pues la respuesta no es un color, ni un numero sino un boolean

creo que debe ser el color por defecto

gracias , seguire intentando
Arriba
Coco Ver desplegable
Colaborador
Colaborador


Unido: 02/Febrero/2005
Localización: España
Estado: Sin conexión
Puntos: 2718
Enlace directo a este mensaje Enviado: 20/Agosto/2010 a las 11:46
A mi eso me devuelve 255, no un boolean, ahora si haces
 
msgbox Libro.Sheets(Hoja.Name).Tab.Color = vbred entonces si que te devolverá un Verdadero/Falso
 
La cuestión es que vbRed en realidad es un número=255, y que yo sepa no hay modo de obtener la constante equivalente al número que es en realidad el color de la pestaña.
Saludos
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9233
Enlace directo a este mensaje Enviado: 20/Agosto/2010 a las 17:07

Puedes tambien aplicarlo con ColorIndex:

Worksheets(ActiveSheet.Name).Tab.ColorIndex = 4 'Pintamos la pestaña de color azul
 
Worksheets(ActiveSheet.Name).Tab.ColorIndex = -4142 'Establecemos el color por defecto.
 
 
Saludos !
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
Jordi-Albert Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 06/Abril/2006
Localización: Alemania
Estado: Sin conexión
Puntos: 4315
Enlace directo a este mensaje Enviado: 20/Agosto/2010 a las 20:49
de memoría, debería devolver un número de tipo Long


lnColor = Worksheets(ActiveSheet.Name).Tab.ColorIndex
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable