OFFICE template - color de relleno celdas en Excel -SOLUCION

Consultas sobre templates. Análisis de templates.
Responder
CWeidl
Novato
Mensajes: 47
Registrado: Mié Abr 16, 2014 8:23 pm
Ubicación: Buenos Aires - Argentina
Contactar:

OFFICE template - color de relleno celdas en Excel -SOLUCION

Mensaje por CWeidl » Vie Ago 11, 2017 11:53 pm

Buenas tardes a todos.
Alguien sabe si se puede y como pintar (color de relleno) las celdas en Excel utilizando este template ?
Cualquier pista o explicacion de como poder lograrlo sera muy bien recibida.
Desde ya muchas graciass a todos.

Carlos Weidl
Última edición por CWeidl el Jue Sep 14, 2017 7:54 pm, editado 1 vez en total.


CWeidl
Novato
Mensajes: 47
Registrado: Mié Abr 16, 2014 8:23 pm
Ubicación: Buenos Aires - Argentina
Contactar:

Re: OFFICE template - pintar celdas en Excel (color de relle

Mensaje por CWeidl » Mar Ago 22, 2017 11:25 pm

Bueno, por las dudas que alguien necesite algo parecido, en mi caso cuando exporto tengo 3 estados posibles, de acuerdo a ese estado debia ponerle un color de fondo a toda la linea que identificara a simple vista su status.
Aclaro que no es lo que necesito, sigo investigando, pero por lo menos voy piloteandola de la siguiente forma :

IF HIS:DERIVACION = 'ARCHIVO'
MSExcel1.Select(LOC:LetraF) ! En la Celda con el Valor de LOC:LetraF
MSExcel1.SetWrapText(TRUE)
MSExcel1.SetColumnWidth(100)
MSExcel1.Assign('ARCHIVO') ! Coloco el Campo
!
MSExcel1.AutoFormat(CLIP('A'& CLIP(LOC:AuxNro)&':'&'G'& CLIP(LOC:AuxNro)),xlRangeAutoFormatColor2)
!
ELSE
MSExcel1.Select(LOC:LetraF) ! En la Celda con el Valor de LOC:LetraF
MSExcel1.SetWrapText(TRUE)
MSExcel1.SetColumnWidth(100)
MSExcel1.Assign('DERIVADO') ! Coloco el Campo
!
MSExcel1.AutoFormat(CLIP('A'& CLIP(LOC:AuxNro)&':'&'G'& CLIP(LOC:AuxNro)),xlRangeAutoFormatColor1)
END

Este codigo le da un formato predefinido.
No logre darle el color que yo quiero, pero por ahora a mi sirve.
Si logro encontrar la forma lo publicare por aca por si alguien lo necesita
Saludos a todos

Carlos weidl

CWeidl
Novato
Mensajes: 47
Registrado: Mié Abr 16, 2014 8:23 pm
Ubicación: Buenos Aires - Argentina
Contactar:

Re: OFFICE template - color de relleno celdas en Excel -SOLU

Mensaje por CWeidl » Jue Sep 14, 2017 7:58 pm

Para el que lo necesite. La instruccion es Interior.ColorIndex

Ej. :

MSExcel1.SetProperty('Range("' & LOC:Linea1 & '").Interior.ColorIndex','4') ! Pintar el fondo de la celda

Les dejo adjunto img con los valores posibles.
Espero sirva el aporte
Saludos

Carlos Weidl
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.

Avatar de Usuario
Nicrus
Mensajes: 3
Registrado: Sab Feb 27, 2016 6:30 am
Contactar:

Re: OFFICE template - color de relleno celdas en Excel -SOLU

Mensaje por Nicrus » Dom Oct 01, 2017 11:37 am

Pregunta. ¿Cómo saber el color de fondo de una celda desde una tabla de excel? ¿Cómo usar el GetProperty()...? ¿o será de otra manera?

Avatar de Usuario
Nicrus
Mensajes: 3
Registrado: Sab Feb 27, 2016 6:30 am
Contactar:

Re: OFFICE template - color de relleno celdas en Excel -SOLU

Mensaje por Nicrus » Lun Oct 09, 2017 9:40 am

Encontré yo mismo la respuesta Linea1 = MSExcel1.GetProperty('ActiveCell.Interior.ColorIndex')

Avatar de Usuario
Nicrus
Mensajes: 3
Registrado: Sab Feb 27, 2016 6:30 am
Contactar:

Re: OFFICE template - color de relleno celdas en Excel -SOLU

Mensaje por Nicrus » Lun Oct 09, 2017 9:42 am

y MSExcel1.GetProperty('ActiveCell.Interior.Color') te dá el codigo RGB(255,255,255)


Responder

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 2 invitados