foreach my $ChartObj (in $xlsSheet->ChartObjects) { 
    $ChartObj->Chart->Export({
        FileName    => $savename,
        FilterName  => $picFileType,
        Interactive => 0});
     push @picFileArray, $savename;
}