my $workbook = $excel -> Workbooks -> Add();

my $sheet = $workbook -> Worksheets( 1 ); 
my $range = $sheet -> Range( 'A1:G2' );
$range -> {Value} = [ [ qw( 14 24 4 35 26 45 34 ) ], [ qw( 34 25 23 24 34 32 11 ) ] ];

my $chart = $workbook -> Charts -> Add();
$chart -> SetSourceData( { Source => $range, PlotBy => xlRows } );
$chart -> Activate;
my $range2 = $chart -> Pictures -> Insert( 'Testbild.jpg' );
$range2 -> ShapeRange -> IncrementLeft( 60 );
$range2 -> ShapeRange -> IncrementTop( 60 );