From 8779be0adf3669d4acce4349f90405162958b9ca Mon Sep 17 00:00:00 2001 From: Alessandro Iannacci Date: Wed, 5 Dec 2012 16:31:44 +0000 Subject: [PATCH] Demo 39 git-svn-id: https://subversion.assembla.com/svn/abap2xlsx/trunk@391 b7d68dce-7c3c-4a99-8ce0-9ea847f5d049 --- ZA2X/PROG/ZDEMO_EXCEL39.slnk | 228 ++++++++++++++++------------------- 1 file changed, 106 insertions(+), 122 deletions(-) diff --git a/ZA2X/PROG/ZDEMO_EXCEL39.slnk b/ZA2X/PROG/ZDEMO_EXCEL39.slnk index 9ad21c0..de47890 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL39.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL39.slnk @@ -33,7 +33,6 @@ DATA: ls_upper TYPE zexcel_drawing_location, DATA lo_bar TYPE REF TO zcl_excel_graph_bars. DATA lo_bar2 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. @@ -81,142 +80,138 @@ START-OF-SELECTION. CREATE OBJECT lo_pie. CALL METHOD lo_pie->create_serie - EXPORTING - ip_idx = 0 - ip_order = 0 - ip_lbl = 'Sheet1!$B$1:$B$3' - ip_REF = 'Sheet1!$A$1:$A$3' - ip_sername = 'My serie 1' - . + EXPORTING + ip_order = 0 + ip_sheet = 'Sheet1' + ip_lbl_from_col = 'B' + ip_lbl_from_row = '1' + ip_lbl_to_col = 'B' + ip_lbl_to_row = '3' + ip_ref_from_col = 'A' + ip_ref_from_row = '1' + ip_ref_to_col = 'A' + ip_ref_to_row = '3' + ip_sername = 'My serie 1'. - CALL METHOD lo_pie->create_serie - EXPORTING - ip_idx = 1 - ip_order = 1 - ip_lbl = 'Sheet1!$D$1:$D$3' - ip_REF = 'Sheet1!$C$1:$C$3' - ip_sername = 'My serie 2' - . + " Set style + lo_pie->set_style( zcl_excel_graph=>c_style_15 ). " Create a bar chart, series and axes CREATE OBJECT lo_bar. CALL METHOD lo_bar->create_serie - EXPORTING - ip_idx = 0 - ip_order = 0 - ip_invertIfNegative = '0' - ip_lbl = 'Sheet1!$D$1:$D$3' - ip_REF = 'Sheet1!$C$1:$C$3' - ip_sername = 'My serie 1' - . + EXPORTING + ip_order = 0 + ip_invertifnegative = zcl_excel_graph_bars=>c_invertifnegative_no + ip_lbl = 'Sheet1!$D$1:$D$3' + ip_ref = 'Sheet1!$C$1:$C$3' + ip_sername = 'My serie 1'. CALL METHOD lo_bar->create_serie - EXPORTING - ip_idx = 1 - ip_order = 1 - ip_invertIfNegative = '0' - ip_lbl = 'Sheet1!$B$1:$B$3' - ip_REF = 'Sheet1!$A$1:$A$3' - ip_sername = 'My serie 2' - . + EXPORTING + ip_order = 1 + ip_invertifnegative = zcl_excel_graph_bars=>c_invertifnegative_no + ip_lbl = 'Sheet1!$B$1:$B$3' + ip_ref = 'Sheet1!$A$1:$A$3' + ip_sername = 'My serie 2'. CALL METHOD lo_bar->create_ax EXPORTING -* ip_axid = +* ip_axid = ip_type = zcl_excel_graph_bars=>c_catax -* ip_orientation = -* ip_delete = -* ip_axpos = -* ip_formatcode = -* ip_sourcelinked = -* ip_majortickmark = -* ip_minortickmark = -* ip_ticklblpos = -* ip_crossax = -* ip_crosses = -* ip_auto = -* ip_lblalgn = -* ip_lbloffset = -* ip_nomultilvllbl = -* ip_crossbetween = - . +* ip_orientation = +* ip_delete = +* ip_axpos = +* ip_formatcode = +* ip_sourcelinked = +* ip_majortickmark = +* ip_minortickmark = +* ip_ticklblpos = +* ip_crossax = +* ip_crosses = +* ip_auto = +* ip_lblalgn = +* ip_lbloffset = +* ip_nomultilvllbl = +* ip_crossbetween = + . CALL METHOD lo_bar->create_ax EXPORTING -* ip_axid = +* ip_axid = ip_type = zcl_excel_graph_bars=>c_valax -* ip_orientation = -* ip_delete = -* ip_axpos = -* ip_formatcode = -* ip_sourcelinked = -* ip_majortickmark = -* ip_minortickmark = -* ip_ticklblpos = -* ip_crossax = -* ip_crosses = -* ip_auto = -* ip_lblalgn = -* ip_lbloffset = -* ip_nomultilvllbl = -* ip_crossbetween = - . +* ip_orientation = +* ip_delete = +* ip_axpos = +* ip_formatcode = +* ip_sourcelinked = +* ip_majortickmark = +* ip_minortickmark = +* ip_ticklblpos = +* ip_crossax = +* ip_crosses = +* ip_auto = +* ip_lblalgn = +* ip_lbloffset = +* ip_nomultilvllbl = +* ip_crossbetween = + . + + " Set style + lo_bar->set_style( zcl_excel_graph=>c_style_16 ). " Create a bar chart, series and axes CREATE OBJECT lo_bar2. CALL METHOD lo_bar2->create_serie - EXPORTING - ip_idx = 0 - ip_order = 0 - ip_invertIfNegative = '0' - ip_lbl = 'Sheet1!$D$1:$D$3' - ip_REF = 'Sheet1!$C$1:$C$3' - ip_sername = 'My serie 1' - . + EXPORTING + ip_order = 0 + ip_invertifnegative = zcl_excel_graph_bars=>c_invertifnegative_no + ip_lbl = 'Sheet1!$D$1:$D$3' + ip_ref = 'Sheet1!$C$1:$C$3' + ip_sername = 'My serie 1'. CALL METHOD lo_bar2->create_ax EXPORTING -* ip_axid = +* ip_axid = ip_type = zcl_excel_graph_bars=>c_catax -* ip_orientation = -* ip_delete = -* ip_axpos = -* ip_formatcode = -* ip_sourcelinked = -* ip_majortickmark = -* ip_minortickmark = -* ip_ticklblpos = -* ip_crossax = -* ip_crosses = -* ip_auto = -* ip_lblalgn = -* ip_lbloffset = -* ip_nomultilvllbl = -* ip_crossbetween = - . +* ip_orientation = +* ip_delete = +* ip_axpos = +* ip_formatcode = +* ip_sourcelinked = +* ip_majortickmark = +* ip_minortickmark = +* ip_ticklblpos = +* ip_crossax = +* ip_crosses = +* ip_auto = +* ip_lblalgn = +* ip_lbloffset = +* ip_nomultilvllbl = +* ip_crossbetween = + . CALL METHOD lo_bar2->create_ax EXPORTING -* ip_axid = +* ip_axid = ip_type = zcl_excel_graph_bars=>c_valax -* ip_orientation = -* ip_delete = -* ip_axpos = -* ip_formatcode = -* ip_sourcelinked = -* ip_majortickmark = -* ip_minortickmark = -* ip_ticklblpos = -* ip_crossax = -* ip_crosses = -* ip_auto = -* ip_lblalgn = -* ip_lbloffset = -* ip_nomultilvllbl = -* ip_crossbetween = - . +* ip_orientation = +* ip_delete = +* ip_axpos = +* ip_formatcode = +* ip_sourcelinked = +* ip_majortickmark = +* ip_minortickmark = +* ip_ticklblpos = +* ip_crossax = +* ip_crosses = +* ip_auto = +* ip_lblalgn = +* ip_lbloffset = +* ip_nomultilvllbl = +* ip_crossbetween = + . " Create global drawing, set type as pie chart, assign chart, set position and media type @@ -236,10 +231,7 @@ START-OF-SELECTION. 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 + ip_media_type = zcl_excel_drawing=>c_media_type_xml ). lo_worksheet->add_drawing( lo_drawing ). @@ -263,11 +255,7 @@ START-OF-SELECTION. 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 - + ip_media_type = zcl_excel_drawing=>c_media_type_xml ). lo_worksheet->add_drawing( lo_drawing ). @@ -290,11 +278,7 @@ START-OF-SELECTION. 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 - + ip_media_type = zcl_excel_drawing=>c_media_type_xml ). lo_worksheet->add_drawing( lo_drawing ).