Sorry, still same problem. *I recopied the code into procedure editor.
It doesn`t like the syntax:
code:
DEFINE variable chExcelApplication AS COM-HANDLE.
DEFINE variable chWorkbook AS COM-HANDLE.
DEFINE variable chWorksheet AS COM-HANDLE.
DEFINE variable chChart AS COM-HANDLE.
CREATE "Excel.Application" chExcelApplication.
chExcelApplication:Visible = TRUE.
chWorkbook = chExcelApplication:Workbooks:Add().
chWorkSheet = chExcelApplication:Sheets:Item(1).
DEF VAR t_nom AS CHAR.
DEF VAR t_ran AS CHAR.
DEF VAR delta AS INT INITIAL 10.
chWorkSheet:Range('A1'):Value = 'Enero'.
chWorkSheet:Range('A2'):Value = 'Febrero'.
chWorkSheet:Range('A3'):Value = 'marzo'.
chWorkSheet:Range('A4'):Value = 'Abril'.
chWorkSheet:Range('B1'):Value = '1'.
chWorkSheet:Range('B2'):Value = '5'.
chWorkSheet:Range('B3'):Value = '3'.
chWorkSheet:Range('B4'):Value = '6'.
chWorkSheet:Range('A1:B4'):Select.
chWorkbook:Charts:Add.
chWorkbook:ActiveChart:ChartType = 57.
chWorkbook:ActiveChart:Location(2, chWorkSheet:NAME).
t_nom = chWorkbook:ActiveChart:NAME.
chWorkbook:ActiveSheet:Shapes:range("Gráfico 1"):TOP = 12.5 * (delta + 1).
chWorkbook:ActiveSheet:Shapes:range("Gráfico 1"):LEFT = 60.
chWorkbook:ActiveSheet:Shapes:range("Gráfico 1"):WIDTH = 250.
chWorkbook:ActiveSheet:ChartObjects("Gráfico 1"):Activate.
chWorkbook:ActiveChart:Legend:SELECT.
chWorkbook:ActiveChart:Legend
ELETE.
chWorkbook:ActiveChart
lotArea:SELECT.
chWorkbook:ActiveChart
lotArea:Interior:ColorIndex = 19.
chWorkSheet:Range('A1:B4'):Select.
chWorkbook:Charts:Add.
chWorkbook:ActiveChart:ChartType = 5.
chWorkbook:ActiveChart:Location(2, chWorkSheet:NAME).
t_nom = chWorkbook:ActiveChart:NAME.
chWorkbook:ActiveSheet:Shapes:range("Gráfico 2"):TOP = 12.5 * (delta + 1).
chWorkbook:ActiveSheet:Shapes:range("Gráfico 2"):LEFT = 320.
chWorkbook:ActiveSheet:Shapes:range("Gráfico 2"):WIDTH = 250.
chWorkbook:ActiveSheet:ChartObjects("Gráfico 2"):Activate.
chWorkbook:ActiveChart:Legend:SELECT.
chWorkbook:ActiveChart:Legend
ELETE.
chWorkbook:ActiveChart
lotArea:SELECT.
chWorkbook:ActiveChart
lotArea:Interior:ColorIndex = 19.
RELEASE OBJECT chExcelApplication NO-ERROR.
RELEASE OBJECT chWorkbook NO-ERROR.
RELEASE OBJECT chWorksheet NO-ERROR.
RELEASE OBJECT chChart NO-ERROR.
The code compiles, but when it is executed it falls down ??
TIA