Select Code to Download

 
use strict;
use warnings;
...
$workbook->Save;
$workbook->Close;

my $shape = $image->{ShapeRange};
$shape->Select;
$shape->ScaleWidth(0.06,1);
$shape->ScaleHeight(0.06,1);