$clip = Win32::Clipboard();

sub select_and_paste_into_ppt()
{
	$clip->Empty();
	$sheet_to_rename->UsedRange->Select;
	$sheet_to_rename->UsedRange->Copy;

	save_image();
	paste_image_to_ppt();
	$Title->TextFrame->TextRange->{Text} =    $sheet_to_rename->{Name};
	$image_count++;
	add_new_slide();
	$clip->Empty();
}
 

sub save_image()
{
	
	$image = Win32::Clipboard::GetBitmap() or die "\nNo Image Captured \n";
	open    BITMAP, ">$path.\\Images\\$image_count.jpg";
	binmode BITMAP;
	print   BITMAP $image;
	close   BITMAP;
		
}