{filelink=13529}

#!/usr/bin/perl -w

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;

# création d'un objet OLE sur MS Excel
my $xls_app = Win32::OLE->new( 'Excel.Application' )
	or die "Impossible de se connecter à MS Excel, $!";

# Lancer Excel.
$xls_app->{'Visible'} = 1;

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

# Graphique
my $feuil   = $workbook->Worksheets(1);

my $chart_range = $feuil->Range("B3:C3");

my $chart = $xls_app->Charts->Add();

# Type de graphique
$chart->{'ChartType'} = xlAreaStacked;

$chart->SetSourceData(
    {
    Source => $chart_range,
    PlotBy => xlColumns
    } );

$chart->{'HasTitle'} = 1;
$chart->ChartTitle->{'Text'} = "Rapport 2010";

Livres sur ce sujet

[amazon_image id=”2841773698″ link=”true” target=”_blank” size=”medium” ]De l’art de programmer en Perl[/amazon_image][amazon_image id=”2914010729″ link=”true” target=”_blank” size=”medium” ]Perl pour l’impatient[/amazon_image][amazon_image id=”2841771407″ link=”true” target=”_blank” size=”medium” ]Programmation en Perl, 3ème édition[/amazon_image][amazon_image id=”B005ELPHNA” link=”true” target=”_blank” size=”medium” ]Perl moderne: L’essentiel des pratiques actuelles[/amazon_image][amazon_image id=”2914010656″ link=”true” target=”_blank” size=”medium” ]Les expressions régulières par l’exemple[/amazon_image][amazon_image id=”2914010869″ link=”true” target=”_blank” size=”medium” ]Les meilleures bibliothèques pour Perl[/amazon_image]