Automation: Création automatique d’un graphique dans MS Excel

#!/usr/bin/perl -w
 
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;
 
# créatio

 set, stack
{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]

Be the first to leave a comment. Don’t be shy.

Join the Discussion

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>