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; # xlLegendPosition $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";