use Win32::OLE qw(in with);
use Win32::OLE::Const 'Microsoft Excel';
use Win32::OLE::Variant;
use Win32::OLE::NLS qw(:LOCALE :DATE);
use Win32::OLE;
use Win32::OLE::Const;
$Win32::OLE::Warn = 3; # die on errors...



my $filter = 'PNG'; # can be GIF, JPG, JPEG or PNG	

$filename = "C:\\graph1.xls";
my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
		|| Win32::OLE->new('Excel.Application', 'Quit'); # use the Excel application if it's open, otherwise open new
		my $Book = $Excel->Workbooks->Open( $filename ); # open the file
		foreach my $Sheet (in $Book->Sheets) { # loop through all sheets
		foreach my $ChartObj (in $Sheet->ChartObjects) { # loop through all chartobjects in the sheet
		#$pngsave = join("",split(/\s+/,$graphtitle));
		$dirpath = "c:\\ExcelTest";
		mkdir ("$dirpath", 0777); 
		my $savename = "$dirpath\\test" . ".$filter";
		
		
		# Write image to PNG file
		$ChartObj->Chart->Export({
		FileName => $savename1,
		FilterName => $filter,
		Interactive => 0});
		
		}
		}

##</code><code>##

Win32::OLE<0.1701> error 0x800a03ec
in METHOD/PROPERTYGET "Export" at C:\test.pl line 26