diff --git a/ZA2X/PROG/ZANGRY_BIRDS.slnk b/ZA2X/PROG/ZANGRY_BIRDS.slnk index aa2dba7..48122d5 100644 --- a/ZA2X/PROG/ZANGRY_BIRDS.slnk +++ b/ZA2X/PROG/ZANGRY_BIRDS.slnk @@ -1,5 +1,5 @@ - + @@ -29,8 +29,10 @@ DATA: lo_excel TYPE REF TO zcl_excel, lo_style_color6 TYPE REF TO zcl_excel_style, lo_style_color7 TYPE REF TO zcl_excel_style, lo_style_credit TYPE REF TO zcl_excel_style, + lo_style_link TYPE REF TO zcl_excel_style, lo_column_dimension TYPE REF TO zcl_excel_worksheet_columndime, - lo_row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi. + lo_row_dimension TYPE REF TO zcl_excel_worksheet_rowdimensi, + lo_hyperlink TYPE REF TO zcl_excel_hyperlink. DATA: lv_style_color0_guid TYPE zexcel_cell_style, lv_style_color1_guid TYPE zexcel_cell_style, @@ -41,6 +43,7 @@ DATA: lv_style_color0_guid TYPE zexcel_cell_style, lv_style_color6_guid TYPE zexcel_cell_style, lv_style_color7_guid TYPE zexcel_cell_style, lv_style_credit_guid TYPE zexcel_cell_style, + lv_style_link_guid TYPE zexcel_cell_style, lv_style TYPE zexcel_cell_style. DATA: lv_col_str TYPE zexcel_cell_column_alpha, @@ -150,6 +153,13 @@ START-OF-SELECTION. lo_style_credit->font->size = 20. lv_style_credit_guid = lo_style_credit->get_guid( ). + " Link + lo_style_link = lo_excel->add_new_style( ). + lo_style_link->alignment->horizontal = zcl_excel_style_alignment=>c_horizontal_center. + lo_style_link->alignment->vertical = zcl_excel_style_alignment=>c_vertical_center. +* lo_style_link->font->size = 20. + lv_style_link_guid = lo_style_link->get_guid( ). + " Create image map " line 2 DO 30 TIMES. APPEND lv_style_color0_guid TO lt_mapper. ENDDO. DO 2 TIMES. APPEND lv_style_color1_guid TO lt_mapper. ENDDO. @@ -720,10 +730,18 @@ START-OF-SELECTION. ip_row = 15 ip_value = 'Created with abap2xlsx' ip_style = lv_style_credit_guid ). + + lo_hyperlink = zcl_excel_hyperlink=>create_external_link( iv_url = 'http://www.abap2xlsx.org' ). + lo_worksheet->set_cell( ip_column = 'AP' + ip_row = 24 + ip_value = 'http://www.abap2xlsx.org' + ip_style = lv_style_link_guid + ip_hyperlink = lo_hyperlink ). + lo_column_dimension = lo_worksheet->get_column_dimension( ip_column = 'AP' ). lo_column_dimension->set_auto_size( ip_auto_size = abap_true ). lo_worksheet->set_merge( ip_row = 15 ip_column_start = 'AP' ip_row_to = 22 ip_column_end = 'AR' ). - + lo_worksheet->set_merge( ip_row = 24 ip_column_start = 'AP' ip_row_to = 26 ip_column_end = 'AR' ). CREATE OBJECT lo_excel_writer TYPE zcl_excel_writer_2007. lv_file = lo_excel_writer->write_file( lo_excel ). diff --git a/ZA2X/PROG/ZDEMO_EXCEL1.slnk b/ZA2X/PROG/ZDEMO_EXCEL1.slnk index b913cbc..f06ee3d 100644 --- a/ZA2X/PROG/ZDEMO_EXCEL1.slnk +++ b/ZA2X/PROG/ZDEMO_EXCEL1.slnk @@ -1,5 +1,5 @@ - + @@ -16,6 +16,7 @@ REPORT zdemo_excel1. + DATA: lo_excel TYPE REF TO zcl_excel, lo_excel_writer TYPE REF TO zif_excel_writer, lo_worksheet TYPE REF TO zcl_excel_worksheet, @@ -62,7 +63,7 @@ START-OF-SELECTION. lo_worksheet->set_cell( ip_column = 'B' ip_row = 2 ip_value = 'Hello world' ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 3 ip_value = sy-datum ). lo_worksheet->set_cell( ip_column = 'C' ip_row = 3 ip_value = sy-uzeit ). - lo_hyperlink = zcl_excel_hyperlink=>create_external_link( iv_url = 'https://cw.sdn.sap.com/cw/groups/abap2xlsx' ). + lo_hyperlink = zcl_excel_hyperlink=>create_external_link( iv_url = 'http://www.abap2xlsx.org' ). lo_worksheet->set_cell( ip_column = 'B' ip_row = 4 ip_value = 'Click here to visit abap2xlsx homepage' ip_hyperlink = lo_hyperlink ). column_dimension = lo_worksheet->get_column_dimension( ip_column = 'B' ).