Help for this page

Select Code to Download

Select or download this

    Range("C1:C721").Select
    Charts.Add
...
        .ColorIndex = xlAutomatic
        .Background = xlAutomatic
    End With

Select or download this

$sheet->Range("C1:C721")->Select;
my $chart = $workbook->Charts->Add;
...
$chart->{HasLegend} = "False;
$chart->Axes(xlCategory)->{MajorTickMark} = xlNone;
$chart->Axes(xlCategory)->{TickLabels}{Font}{Size} = 5;