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
OFFICE template - color de relleno celdas en Excel -SOLUCION
-
- 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
Última edición por CWeidl el Jue Sep 14, 2017 7:54 pm, editado 1 vez en total.
-
- 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
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
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
-
- 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
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
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.
- Nicrus
- Mensajes: 3
- Registrado: Sab Feb 27, 2016 6:30 am
- Contactar:
Re: OFFICE template - color de relleno celdas en Excel -SOLU
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?
- Nicrus
- Mensajes: 3
- Registrado: Sab Feb 27, 2016 6:30 am
- Contactar:
Re: OFFICE template - color de relleno celdas en Excel -SOLU
Encontré yo mismo la respuesta Linea1 = MSExcel1.GetProperty('ActiveCell.Interior.ColorIndex')
- Nicrus
- Mensajes: 3
- Registrado: Sab Feb 27, 2016 6:30 am
- Contactar:
Re: OFFICE template - color de relleno celdas en Excel -SOLU
y MSExcel1.GetProperty('ActiveCell.Interior.Color') te dá el codigo RGB(255,255,255)
¿Quién está conectado?
Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 5 invitados