Cobol Foro - [Sintaxis] Color de una columna de un Gráfico en Excel

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL y COM/OLE (https://www.cobolforo.es/forumdisplay.php?f=32)

- - [Sintaxis] Color de una columna de un Gráfico en Excel (https://www.cobolforo.es/showthread.php?t=446)

Color de una columna de un Gráfico en Excel

Hola Camaradas, hay alguna manera de cambiarles el color a una celda y una columna de un gráfico en Excel desde PW?
Saludos

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 é:

Código COBOL:

 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

Hrncobol,

Nas duas primeiras utilizei o "ColorIndex" que são cores do Excel.
Na 3ª célula utilizei o "Color" e enviei o POW-COLOR-RED para cor de fundo.

Já não consegui editar o meu post anterior (5 minutos de limite)

Un saludo,
Rui