Re: Excel Chart

Hi bdoydie,

Something like this, for a headup:

#!/usr/bin/perl
use warnings;
use strict;

use Spreadsheet::WriteExcel;

my $workbook = Spreadsheet::WriteExcel->new('data.xls');

# Add a worksheet
my $worksheet = $workbook->add_worksheet('data');

$worksheet->write_row( $. - 1, 0, [split] ) while <DATA>;

my $chart5 = $workbook->add_chart( type => 'line', embedded => 1 );

# Configure the series.
$chart5->add_series(
    categories => '=data!$A$2:$A$7',
    values     => '=data!$B$2:$B$7',
    name       => 'Test data series 1',
);

# Add some labels.
$chart5->set_title( name => 'Results of sample analysis' );
$chart5->set_x_axis( name => 'Sample number' );
$chart5->set_y_axis( name => 'Sample length (cm)' );

# Insert the chart into the main worksheet.
$worksheet->insert_chart( 'E2', $chart5 );

__DATA__
Value1    Value2
1    5
2    0
3    30
4    15
5    75
[download]

Please, take your time to check Spreadsheet::WriteExcel::Examples for more details, it will answer your questions.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me

In Section Seekers of Perl Wisdom