You haven't shown us what you have tried, which means it's harder to guide you. A general rule is that ANYTHING that can be done on the face of the spreadsheet (i.e. excluding VBA) can be done from Perl via Win32::OLE. You might want to have a look at Re: pie chart color -- Win32::OLE for some code where I set up & then play around with a chart. Each workbook has a charts collection. If you know the index of the chart you want, you can point to it with something like $wb->charts($index) and then add or change the settings at your whim.

Regards,

John Davies

Besides the examples linked by davies, also try the standard approach when automating excel-stuff: Use The Macro Recorder, Luke (Re: Using Win32::OLE and Excel - Tips and Tricks). It helped me a lot (thanks, Corion!)

#!perl
use strict;
use Win32::OLE::Const 'Microsoft Excel';
Win32::OLE->Option(Warn => 3);

my $ex = Win32::OLE->GetActiveObject('Excel.Application')
        || Win32::OLE->new('Excel.Application', 'Quit');
        
# change filename to suit
my $wb = $ex->Workbooks->Open('c:/temp/testchart.xls') ; 

for my $ws ( $wb->Sheets->in){
  print "\nSheet = ".$ws->Name."\n";
  for my $obj ( $ws->ChartObjects->in ){
    my $cht = $obj->Chart;
    print "Name  = ".$cht->Name."\n";
    print "Title = ".$cht->ChartTitle->text."\n" if $cht->hasTitle;
    for my $ser ($cht->SeriesCollection->in){
      my $SERIES = $ser->{'FormulaR1C1'};
      print $ser->Name.' ['.$SERIES."]\n";   
       # make changes as appropriate
       #my $NEWSERIES = $SERIES;
       #if ($NEWSERIES =~ s/Sheet1/Sheet2/g){;
       #  $ser->{'FormulaR1C1'} = $NEWSERIES;
       #  print "--> Changed to [$NEWSERIES]\n";
       #};
    }
  }
}
# save and exit
$wb->SaveAs( 'c:\\temp\\changed.xls' );
undef $wb;
undef $ex;
[download]

The code worked perfectly. Thanks for setting me on the right path!