What will be ABAP adaptaion for this VB code

[Former Member]

Hi Experts,

I am doing a program by integrating ABAP with EXCEL, i need to write the following code in ABAP which is recorded by macro.

I need to change the Category Type of the AXIS from Default to Text.

"ActiveChart.Axes(xlCategory).CategoryType = xlCategoryScale"

Thanks,

Venky

[Former Member]

Hi,

Check below code.

H_EXCEL is the object of "EXCEL.APPLICATION" replace with yours in code.

Hope it works

DATA: H_EXCEL TYPE OLE2_OBJECT,
      H_ACHART TYPE OLE2_OBJECT,
      H_AXES TYPE OLE2_OBJECT.

GET PROPERTY OF H_EXCEL 'ActiveChart' = H_ACHART.
CALL METHOD OF H_ACHART 'Axes' = H_AXES EXPORTING #1 = 'xlCategory'.
SET PROPERTY OF H_AXES 'CategoryType' = 'xlCategoryScale' .

Regards,

Vishal

[Former Member]

Hi,

Check below code.

H_EXCEL is the object of "EXCEL.APPLICATION" replace with yours in code.

Hope it works

DATA: H_EXCEL TYPE OLE2_OBJECT,
      H_ACHART TYPE OLE2_OBJECT,
      H_AXES TYPE OLE2_OBJECT.

GET PROPERTY OF H_EXCEL 'ActiveChart' = H_ACHART.
CALL METHOD OF H_ACHART 'Axes' = H_AXES EXPORTING #1 = 'xlCategory'.
SET PROPERTY OF H_AXES 'CategoryType' = 'xlCategoryScale' .

Regards,

Vishal

[Former Member]

Hi,

above code is not converting axis. I have still problem

Thanks,

Venky