Avalados por :
Acabo de empezar a descargar algunos datos a Excel a través de la tecnología OLE.
Puedo poner la fuente en NEGRITA, cambiar el TAMAÑO, ponerla en CURSIVA, pero no puedo hacer que la fuente sea Roja, por ejemplo, SIN cambiar el fondo.
¿Alguien puede ayudarme?
Aquí está mi código:
.....
INCLUDE OLE2INCL.
DATA: APPLICATION TYPE OLE2_OBJECT,
WORKBOOK TYPE OLE2_OBJECT,
SHEET TYPE OLE2_OBJECT,
CELLS TYPE OLE2_OBJECT.
CONSTANTS: ROW_MAX TYPE I VALUE 256.
DATA INDEX TYPE I.
DATA : BORDERS TYPE OLE2_OBJECT,
BUTTON TYPE OLE2_OBJECT,
INT TYPE OLE2_OBJECT,
FONT TYPE OLE2_OBJECT,
ROW TYPE OLE2_OBJECT,
COLOR TYPE OLE2_OBJECT.
....
......
.....
CALL METHOD OF SHEET 'RANGE' = CELLS EXPORTING #1 = 'A1'.
<b> PERFORM FONT USING 1 '12' 0.
PERFORM FILL_CELL USING '6' '-1' 2</b>.
SET PROPERTY OF CELLS 'VALUE' = 'Nombre'.
FREE OBJECT CELLS.
....
......
----
FORM font *
----
........ *
----
--> negrita *
--> tamaño *
----
FORM FONT USING NEGRITA TAMAÑO CURSIVA.
CALL METHOD OF CELLS 'FONT' = FONT.
SET PROPERTY OF FONT 'BOLD' = NEGRITA.
SET PROPERTY OF FONT 'SIZE' = TAMAÑO.
SET PROPERTY OF FONT 'ITALIC' = CURSIVA.
FREE OBJECT FONT.
ENDFORM.
----
FORM fill_cell *
----
........ *
----
--> color *
--> patrón *
----
FORM FILL_CELL USING COLOR PATRÓN ALINEAR.
CALL METHOD OF CELLS 'INTERIOR' = INT.
SET PROPERTY OF INT 'ColorIndex' = COLOR.
SET PROPERTY OF INT 'Pattern' = PATRÓN.
SET PROPERTY OF INT 'Align' = ALINEAR.
FREE OBJECT INT.
ENDFORM.
¡Se recompensará con puntos (como de costumbre)!
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute