vba - 调整存储在文件夹中的图像大小

Question

我想从文件夹中获取图像，调整其大小并将其存储在同名的相同位置。我看到了很多关于如何拍摄图像、调整大小并将其放入 PowerPoint 幻灯片中的示例，但我只想将其存储在文件夹中而不是演示文稿中。那可能吗？

Answer 1

使用 Imagejpeg。

这可以调整 jpeg 的大小。它被编写为将 $content 作为数据库的提要 - 只需替换为您希望调整大小的 iamge 的 fread() 即可。

$newheight=floor($newheight);
$newwidth=floor($newwidth); 
$image=imagecreatefromstring($content);
$newimage=imagecreatetruecolor($newwidth, $newheight);
imagecopyresampled($newimage, $image, 0, 0, 0, 0, $newwidth, $newheight,$row['width'], $row['height']);
imagejpeg($newimage,$filetosaveto);