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";
In reply to Create Charts using Excel and Win32::OLE
by Anonymous Monk
in thread Using Win32::OLE and Excel - Tips and Tricks
by cacharbe
For: | Use: | ||
& | & | ||
< | < | ||
> | > | ||
[ | [ | ||
] | ] |