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