my $Book = $Excel->Workbooks->Open( $filename, 0, 1 );
foreach my $ChartObj (in $Book->Charts) 
{
	my $chartName = $ChartObj->Name;	
	my $savename = $filepath."\\$chartName.$filter";	
	$ChartObj->Export({
		FileName    => $savename,
		FilterName  => $filter,
		Interactive => 0});			
}
$Book->Close;