*&---------------------------------------------------------------------*
*& 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: ls_io TYPE skwf_io.
DATA: ls_upper TYPE ZEXCEL_DRAWING_LOCATION,
ls_lower TYPE ZEXCEL_DRAWING_LOCATION.
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' ).
" create global drawing, set position and media from web repository
lo_drawing = lo_worksheet->excel->add_new_drawing(
ip_type = zcl_excel_drawing=>type_chart
ip_title = 'titolografico' ).
data lo_bar type ref to ZCL_EXCEL_GRAPH_BARS.
create object lo_bar.
lo_bar->REF = ''. "VALUE RANGE FOR CHART
lo_drawing->graph = lo_bar.
ls_lower-row = 10.
ls_lower-col = 10.
lo_drawing->set_position2(
EXPORTING
ip_from = ls_upper
ip_to = ls_lower ).
lo_drawing->set_media(
EXPORTING
ip_media = '0' "usato per il template
ip_media_type = 'xml'
ip_width = 0 "usati solo per le immagini
ip_height = 0 ). "usati solo per le immagini
lo_worksheet->add_drawing( lo_drawing ).
*** Create output
lcl_output=>output( lo_excel ).