Hrmcobol,
Anexo um exemplo para mudar as cores no excel por OLE2
Não percebi bem se é isso que pretendes.
O PPJ é da versão 9.
O código no botão é:
COBOL Código:
MAIN-00.
MOVE 3 TO ARRAY-ROW.
MOVE 1 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
RETURNING CELL.
MOVE 44 TO COLOR.
INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
INVOKE INTERIOR "SET-COLORINDEX" USING COLOR.
*
MOVE 3 TO ARRAY-ROW.
MOVE 2 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
RETURNING CELL.
MOVE 42 TO COLOR.
INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
INVOKE INTERIOR "SET-COLORINDEX" USING COLOR.
*
MOVE 3 TO ARRAY-ROW.
MOVE 3 TO ARRAY-COL.
INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
RETURNING CELL.
MOVE POW-COLOR-RED TO COLORRED.
INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
INVOKE INTERIOR "SET-COLOR" USING COLORRED.
Espero que ajude.
Un saludo,
Rui Pinto
Marcadores