#!/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
De l’art de programmer en PerlPerl pour l’impatientProgrammation en Perl, 3ème éditionPerl moderne: L’essentiel des pratiques actuellesLes expressions régulières par l’exempleLes meilleures bibliothèques pour Perl
----------------------------------------------------------------------------
