Citación del post de
fastpho
|
❞
Hola @Joseg , link de colores *> https://learn.microsoft.com/en-us/of...cel.colorindex permitidos
Primer posicionar fila,columna , luego seleccionarla , luego enviar el color
Código COBOL:
ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. *>[url]https://learn.microsoft.com/en-us/office/vba/api/excel.colorindex[/url] *> propiedad 01 COLOR-INDEX PIC S9(9) comp-5. *>colores van de 1 to 56. PROCEDURE DIVISION. MOVE 1 TO ARRAY-ROW. MOVE 1 TO ARRAY-COL. INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL INVOKE CELL "SELECT" MOVE 26 TO COLOR-INDEX. INVOKE CELL "GET-FONT" RETURNING DOCFONT INVOKE DOCFONT "SET-ColorIndex" USING COLOR-INDEX MOVE 2 TO ARRAY-ROW. MOVE 2 TO ARRAY-COL. INVOKE WORKSHEET "GET-CELLS" USING ARRAY-ROW ARRAY-COL RETURNING CELL INVOKE CELL "SELECT" MOVE 26 TO COLOR-INDEX. INVOKE CELL "GET-INTERIOR" RETURNING DOCFONT INVOKE DOCFONT "SET-ColorIndex" USING COLOR-INDEX
Saludos... |
Gracias.
Sé cómo cambiar los colores, pero quería implementar este cambio usando el color de fondo de una celda de la tabla powercobol en el ejemplo de RAPINTO que exporta una Listview (o tabla) a Excel (todas las filas columnas).
Por cierto, "SET-ColorIndex" se usa con números de color, como dices, pero podemos usar "SET-COLOR".
Exemplo:
Código COBOL:
MOVE "BackColor" OF "TableCells" (IDX3 IDX4) OF Table TO WCOLOR
INVOKE INTERIOR "SET-COLOR" USING WCOLOR
o
Código COBOL:
MOVE POW-COLOR-RED TO WCOLOR
INVOKE INTERIOR "SET-COLOR" USING WCOLOR
En otras palabras, quiero exportar todo el contenido de una tabla (hasta 2000 líneas), con muchas celdas de diferentes colores. Quiero exportar a Excel exactamente como se ve en la pantalla.