COBOL Foro

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)

Hrmcobol 30 de julio de 2016 15:12

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

Rapinto 2 de agosto de 2016 18:26

2 Archivos Adjunto(s)
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:
  1.  MAIN-00.
  2.     MOVE 3 TO ARRAY-ROW.
  3.     MOVE 1 TO ARRAY-COL.
  4.     INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
  5.                           RETURNING CELL.
  6.     MOVE 44 TO COLOR.
  7.     INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
  8.     INVOKE INTERIOR "SET-COLORINDEX" USING COLOR.
  9. *
  10.     MOVE 3 TO ARRAY-ROW.
  11.     MOVE 2 TO ARRAY-COL.
  12.     INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
  13.                           RETURNING CELL.
  14.     MOVE 42 TO COLOR.
  15.     INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
  16.     INVOKE INTERIOR "SET-COLORINDEX" USING COLOR.
  17. *
  18.     MOVE 3 TO ARRAY-ROW.
  19.     MOVE 3 TO ARRAY-COL.
  20.     INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL
  21.                           RETURNING CELL.
  22.     MOVE POW-COLOR-RED TO COLORRED.
  23.     INVOKE CELL "GET-INTERIOR" RETURNING INTERIOR.
  24.     INVOKE INTERIOR "SET-COLOR" USING COLORRED.

Espero que ajude.
Un saludo,
Rui Pinto

Rapinto 2 de agosto de 2016 18:36

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


La franja horaria es GMT +1. Ahora son las 08:23.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.