*&---------------------------------------------------------------------* *& Report ZDEMO_EXCEL16 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zdemo_excel39. DATA: lo_excel TYPE REF TO zcl_excel, lo_worksheet TYPE REF TO zcl_excel_worksheet, lo_drawing TYPE REF TO zcl_excel_drawing. DATA lv_value TYPE i. DATA: ls_io TYPE skwf_io. DATA: ls_upper TYPE zexcel_drawing_location, ls_lower TYPE zexcel_drawing_location. DATA lo_bar TYPE REF TO zcl_excel_graph_bars. DATA lo_pie TYPE REF TO zcl_excel_graph_pie. DATA lv_media TYPE xstring. CONSTANTS: gc_save_file_name TYPE string VALUE '39_Charts.xlsx'. INCLUDE zdemo_excel_outputopt_incl. START-OF-SELECTION. " Creates active sheet CREATE OBJECT lo_excel. " Get active sheet lo_worksheet = lo_excel->get_active_worksheet( ). lo_worksheet->set_title( 'Sheet1' ). " Set labels for chart lv_value = 1. lo_worksheet->set_cell( ip_column = 'K' ip_row = 1 ip_value = 'One' ). lv_value = 2. lo_worksheet->set_cell( ip_column = 'K' ip_row = 2 ip_value = 'Two' ). lv_value = 3. lo_worksheet->set_cell( ip_column = 'K' ip_row = 3 ip_value = 'Three' ). " Set values for chart lv_value = 1. lo_worksheet->set_cell( ip_column = 'J' ip_row = 1 ip_value = lv_value ). lv_value = 2. lo_worksheet->set_cell( ip_column = 'J' ip_row = 2 ip_value = lv_value ). lv_value = 3. lo_worksheet->set_cell( ip_column = 'J' ip_row = 3 ip_value = lv_value ). " Create a pie chart and assign value range CREATE OBJECT lo_pie. lo_pie->ref = 'Sheet1!$J$1:$J$3'. "VALUE RANGE FOR CHART lo_pie->lbl = 'Sheet1!$K$1:$K$3'. "VALUE RANGE FOR CHART lo_pie->sername = 'My serie'. "Serie name " Create global drawing, set type as pie chart, assign chart, set position and media type lo_drawing = lo_worksheet->excel->add_new_drawing( ip_type = zcl_excel_drawing=>type_chart ip_title = 'CHART TITLE' ). lo_drawing->graph = lo_pie. lo_drawing->graph_type = zcl_excel_drawing=>c_graph_pie. "Set chart position (anchor 2 cells) ls_lower-row = 22. ls_lower-col = 11. lo_drawing->set_position2( EXPORTING ip_from = ls_upper ip_to = ls_lower ). lo_drawing->set_media( EXPORTING ip_media = lv_media "used for template (binary content) ip_media_type = 'xml' ip_width = 0 "used only for image types, not for charts ip_height = 0 ). "used only for image types, not for charts lo_worksheet->add_drawing( lo_drawing ). *** Create output lcl_output=>output( lo_excel ).