|
Posted by Slickuser on December 24, 2007, 4:00 am
Please log in for more thread options
Hi all,
I don't know what is the format to resize the image from Perl PS OLE.
Here is the API, Sub ResizeImage([Width], [Height], [Resolution],
[ResampleMethod])
change the size of the image.
I try put as numbers and 800px for my width in a String and it doesn't
work either.
Any help?
Other method work.
use Win32::OLE;
use OLE;
use Cwd;
my $Photoshop = Win32::OLE->new('Photoshop.Application')
or die "Can't start Photoshop!\n";
$Photoshop-> = 0;
my $cwd = getcwd();
$sourceImageFileName = $cwd."/800.jpg";
my $Document = $Photoshop->Open($sourceImageFileName)
or die "Can't open $sourceImageFileName.\n";
my $width = "800 pixels";
my $height = "600 pixels";
my $resolution = "96 pixels/inch";
my $resample_method = "Bicubic";
my $rotate = 0;
$Document->ResizeImage($width,$height,$resolution,$resample_method);
#$Document->SaveAs("C:/test.jpg");
if ($rotate) {
$Document->RotateCanvas(-90.0);
}
$Document->Save();
$Document->Close;
print "Width: $width, Height: $height\n";
| 
XML Sitemap