Aprende en Comunidad
Avalados por :
Como alterar o formato da fonte no Excel usando tecnologia OLE
- Creado 01/03/2024
- Modificado 01/03/2024
- 1 Vistas
Acabei de começar a baixar alguns dados para o Excel através da tecnologia OLE.
Consigo colocar a fonte em NEGRITO, alterar o TAMANHO, colocar em ITÁLICO, mas não consigo fazer a fonte ficar Vermelha, por exemplo, SEM alterar o fundo.
Alguém pode me ajudar?
Aqui está o meu 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' = 'Nome'.
FREE OBJECT CELLS.
....
......
----
-
FORM font *
----
-
........ *
----
-
--> negrito *
-
--> tamanho *
----
FORM FONT USING NEGRITO TAMANHO ITÁLICO.
CALL METHOD OF CELLS 'FONT' = FONT.
SET PROPERTY OF FONT 'BOLD' = NEGRITO.
SET PROPERTY OF FONT 'SIZE' = TAMANHO.
SET PROPERTY OF FONT 'ITALIC' = ITÁLICO.
FREE OBJECT FONT.
ENDFORM.
----
-
FORM fill_cell *
----
-
........ *
----
-
--> cor *
-
--> padrão *
----
FORM FILL_CELL USING COR PADRÃO ALINHAR.
CALL METHOD OF CELLS 'INTERIOR' = INT.
SET PROPERTY OF INT 'ColorIndex' = COR.
SET PROPERTY OF INT 'Pattern' = PADRÃO.
SET PROPERTY OF INT 'Align' = ALINHAR.
FREE OBJECT INT.
ENDFORM.
Será recompensado com pontos (como de costume)!
Sin respuestas
No hay respuestas para mostrar
Se el primero en responder
contacto@primeinstitute.com
(+51) 1641 9379
(+57) 1489 6964
© 2024 Copyright. Todos los derechos reservados.
Desarrollado por Prime Institute