I want create a graph in excel

Question

hi
    I have created a program using field-symbols and add excel download using OLE object everything finished now i want to download graph in the excel how can do that help me.now the program completed until excel download the data now i want to create graph usinf the data.
regards,
Siva

Answer 1

Hi Siva,
Use the foll code, just give 1 / 2 in Sheets parameter.
*& Report  ZJOTHI_GRAPHICS_IN_EXCEL                                    *
report  zjothi_graphics_in_excel  no standard page heading
include ole2incl .
data: gs_excel type ole2_object ,
gs_wbooklist type ole2_object ,
gs_application type ole2_object ,
gs_wbook type ole2_object ,
gs_activesheet type ole2_object ,
gs_sheets type ole2_object ,
gs_newsheet type ole2_object ,
gs_cell1 type ole2_object ,
gs_cell2 type ole2_object ,
gs_cells type ole2_object ,
gs_range type ole2_object ,
gs_font type ole2_object ,
gs_interior type ole2_object ,
gs_columns type ole2_object ,
gs_charts type ole2_object ,
gs_chart type ole2_object ,
gs_charttitle type ole2_object ,
gs_charttitlechar type ole2_object ,
gs_chartobjects type ole2_object .
data gv_sheet_name(20) type c .
data gv_outer_index like sy-index .
data gv_intex(2) type c .
data gv_line_cntr type i . "line counter
data gv_linno type i . "line number
data gv_colno type i . "column number
data gv_value type i . "data
parameters: p_sheets type i .
start-of-selection .
do p_sheets times .
*--Forming sheet name
gv_intex = sy-index .
gv_outer_index = sy-index .
concatenate 'Excel Sheet #' gv_intex into gv_sheet_name .
*--For the first loop, Excel is initiated and one new sheet is added
if sy-index = 1 .
create object gs_excel 'EXCEL.APPLICATION' .
set property of gs_excel 'Visible' = 1 .
get property of gs_excel 'Workbooks' = gs_wbooklist .
get property of gs_wbooklist 'Application' = gs_application .
set property of gs_application 'SheetsInNewWorkbook' = 1 .
call method of gs_wbooklist 'Add' = gs_wbook .
get property of gs_application 'ActiveSheet' = gs_activesheet .
set property of gs_activesheet 'Name' = gv_sheet_name .
*--For the rest of loops, other sheets are added
else .
get property of gs_wbook 'Sheets' = gs_sheets .
call method of gs_sheets 'Add' = gs_newsheet .
set property of gs_newsheet 'Name' = gv_sheet_name .
endif .
gv_line_cntr = 1 . "line counter
*--Title
*--Selecting cell area to be merged.
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = 1
#2 = 1.
call method of gs_excel 'Cells' = gs_cell2
exporting
#1 = 1
#2 = 4.
call method of gs_excel 'Range' = gs_cells
exporting
#1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
*--Merging
call method of gs_cells 'Merge' .
*--Setting title data
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 1.
set property of gs_cell1 'Value' = 'KISHAN' .
*--Formatting the title
get property of gs_cell1 'Font' = gs_font .
set property of gs_font 'Underline' = 2 .
set property of gs_font 'Bold' = 1 .
set property of gs_cell1 'HorizontalAlignment' = -4108 .
get property of gs_cell1 'Interior' = gs_interior .
set property of gs_interior 'ColorIndex' = 15 .
set property of gs_interior 'Pattern' = -4124 .
set property of gs_interior 'PatternColorIndex' = -4105 .
gv_line_cntr = gv_line_cntr + 1 .
*--Writing some additional data for the title
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 1.
set property of gs_cell1 'Value' = 'Sheet No' .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 5.
set property of gs_cell1 'Value' = ':' .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 6.
set property of gs_cell1 'Value' = gv_intex .
*--Formatting the area of additional data 1
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = 1
#2 = 1.
call method of gs_excel 'Cells' = gs_cell2
exporting
#1 = gv_line_cntr
#2 = 5.
call method of gs_excel 'Range' = gs_cells
exporting
#1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
get property of gs_cells 'Font' = gs_font .
set property of gs_font 'Bold' = 1 .
*--Formatting the area of additional data 2
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = 1
#2 = 5.
call method of gs_excel 'Cells' = gs_cell2
exporting
#1 = gv_line_cntr
#2 = 5.
call method of gs_excel 'Range' = gs_cells
exporting
#1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
get property of gs_cells 'Columns' = gs_columns .
call method of gs_columns 'AutoFit' .
*--Bordering title data area
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = 1
#2 = 1.
call method of gs_excel 'Cells' = gs_cell2
exporting
#1 = gv_line_cntr
#2 = 6.
call method of gs_excel 'Range' = gs_cells
exporting
#1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
call method of gs_cells 'BorderAround'
exporting
#1 = 1 "continuous line
#2 = 4. "thick
*--Putting axis labels
gv_colno = 2 .
gv_line_cntr = gv_line_cntr + 5 .
gv_linno = gv_line_cntr - 1 .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_linno
#2 = 1.
set property of gs_cell1 'Value' = 'X' .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 1.
set property of gs_cell1 'Value' = 'Y' .
*--Generating some data
do 3 times .
gv_value = gv_outer_index * sy-index * 10 .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_linno
#2 = gv_colno.
set property of gs_cell1 'Value' = sy-index .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = gv_colno.
set property of gs_cell1 'Value' = gv_value .
gv_colno = gv_colno + 1 .
enddo .
*--Source data area
gv_colno = gv_colno - 1 .
call method of gs_excel 'Cells' = gs_cell1
exporting #1 = gv_linno
#2 = 1.
call method of gs_excel 'Cells' = gs_cell2
exporting #1 = gv_line_cntr
#2 = gv_colno.
call method of gs_excel 'Range' = gs_cells
exporting #1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
get property of gs_application 'Charts' = gs_charts .
call method of gs_charts 'Add' = gs_chart .
call method of gs_chart 'Activate' .
set property of gs_chart 'ChartType' = '51' . "Vertical bar graph
call method of gs_chart 'SetSourceData'
exporting #1 = gs_cells
#2 = 1.
set property of gs_chart 'HasTitle' = 1 .
get property of gs_chart 'ChartTitle' = gs_charttitle .
get property of gs_charttitle 'Characters' = gs_charttitlechar .
set property of gs_charttitlechar 'Text' = 'Sample Graph' .
*--Locate the chart onto the current worksheet
*--Activate current sheet
call method of gs_excel 'WorkSheets' = gs_activesheet
exporting #1 = gv_sheet_name.
call method of gs_activesheet 'Activate' .
call method of gs_chart 'Location'
exporting #1 = 2
#2 = gv_sheet_name.
*--Reposition the chart on the worksheet (cut&paste)
call method of gs_activesheet 'ChartObjects' = gs_chartobjects .
call method of gs_chartobjects 'Select' .
call method of gs_chartobjects 'Cut' .
*--Select new area
gv_line_cntr = gv_line_cntr + 2 .
call method of gs_excel 'Cells' = gs_cell1
exporting
#1 = gv_line_cntr
#2 = 1.
call method of gs_excel 'Cells' = gs_cell2
exporting
#1 = gv_line_cntr
#2 = 1.
call method of gs_excel 'Range' = gs_cells
exporting
#1 = gs_cell1
#2 = gs_cell2.
call method of gs_cells 'Select' .
call method of gs_activesheet 'Paste' .
enddo.
*--Deallocating memory
free: gs_excel, gs_wbooklist, gs_application, gs_wbook,
gs_activesheet,gs_sheets, gs_newsheet, gs_cell1,
gs_cell2, gs_cells, gs_range, gs_font, gs_interior,
gs_columns, gs_charts, gs_chart, gs_charttitle,
gs_charttitlechar, gs_chartobjects .
Rgds,
Jothi.P
**reward pts for helpful answers.