Hi folks,
I have a perl script which produces a 4 worksheet Excel spreadsheet and
4 accompanying Excel Charts.
The data all looks fine but I have a problem I cannot solve.
I produce the charts via a loop in the script which loops 4 times.
For each chart, I want to name them according to the value of an array
i.e.
my @location=qw/loc1 loc2 loc3 loc4/;

However the name on each Chart is never changed, so they are labelled
Chart1, Chart2 etc.

I tried changing the $location to "TEST" but all this does is to change
Chart1 to "TEST". Charts 2,3 and 4 are not changed.

N.B. This loop is used to rename the Worksheet labels also and that
works fine.

Any help most welcome.
Thanks.
Thanks.
Paul


$Range = $Sheet-Range($cellend);

my $Chart = $Book-Charts-Add;
$Chart-{ChartType} = xlLineMarkers;
$Chart = $xl-ActiveChart;
$Chart-{Name} = 'TEST';
$Chart-SetSourceData({Source = $Range, PlotBy = xlColumns});
$Chart-{HasTitle} = 1;
$Chart-ChartTitle-{Text} = $location;
$Chart-Axes(xlCategory, xlPrimary)-{HasTitle} = 1;
$Chart-Axes(xlCategory, xlPrimary)-AxisTitle-{Text} = "Time";
$Chart-Axes(xlValue, xlPrimary)-{HasTitle} = 1;
$Chart-Axes(xlValue, xlPrimary)-AxisTitle-{Text} = "Milliseconds";