sub add_chart_func {
        my $name = shift;
	my $chart = $workbook->add_chart( name => "$name",type => 'line' ,embedded => 1);
	$chart->set_title( name => "$name" );
	
	$chart->add_series(
    categories    => xl_range_formula( 'sheet', 1+$Graph_table_last_row, $row, 1, 1 ),
    values        => xl_range_formula( 'sheet', 1+$Graph_table_last_row, $row, 2, 2 ),
    name       => "$var1",
    );
	$chart->add_series(
    categories    => xl_range_formula( 'sheet', 1+$Graph_table_last_row, $row, 1, 1 ),
    values        => xl_range_formula( 'sheet', 1+$Graph_table_last_row, $row, 3, 3 ),
    name       => "$var2",
    );
	
	$Graph_table_last_row = $Graph_table_last_row + 3;	
	$grpsheet->insert_chart( "J$Graph_table_last_row", $chart, 10, 10, 1.7, 1.5);	
	$Graph_table_last_row = $row + 5;	
	$graph_table_no++;
}