Create Charts using Excel and Win32::OLE

[Anonymous Monk]

Here's a little example that may help other novice monks:

my $Chart;
unless ($Book->Charts->Count) {
    $Chart = $Book->Charts->Add({After => $Sheet});
    # $Sheet is my data sheet
    $Chart->{Name} = "Graphics";
    $Book->Save();
} else {
    $Chart = $Book->Charts("Graphics");
}

$Chart->SetSourceData($Sheet->Range('A1','C124'),xlColumns); # Range, 
+xlRowCol
$Chart->{ChartType} = xlXYScatterLines; # xlChartType;
$Chart->Legend->{Position} = xlLegendPositionBottom; # xlLegendPositio
+n
$Chart->Activate();

# Axes
my $Xaxes = $Chart->Axes(xlCategory, xlPrimary);
$Xaxes->{HasTitle} = 1;
$Xaxes->{AxisTitle}->{Characters}->{Text} =  "seconds";

my $Yaxes = $Chart->Axes(xlValue, xlPrimary);
$Yaxes->{HasTitle} = 1;
$Yaxes->{AxisTitle}->{Characters}->{Text} =  "number";