Skip to main content

I want to include a table according to the values ​​loaded in the cells.

According to the macro generated in Excel, the instructions are:

Range ("B33"). Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlColumnClustered

ActiveChart.ChartStyle = 4

ActiveChart.ClearToMatchStyle

ActiveChart.SetSourceData Source: = Range ("B21: D27")

 

If you transform the instructions to acucobol

would:

 

       01 excel-objects.

           03 hexcelapp handle of application of excel.

           03 hexcebook handle of workbook of excel.

           03 hexcelsheet handle of worksheet of excel.

           03 hrango handle of range of excel.

           03 hchartobject HANDLE OF CHART OF EXCEL.

 

 

 

           inquire hexcelsheet @Range ("B33") = hrango.

           modify hrango @Select ().

          ?????????

           modify hcharobject ChartType = xlColumnClustered.

           modify hcharobjet ChartStyle = 4.

           inquire hexcelsheet @range ("B21: D27") in hRango.

           modify hcharobject SetSourceData = (hRango).

 

The instruction in macro:

    ActiveSheet.Shapes.AddChart.Select

How would it be written in acucobol?