VBS+WIA只能等比改变图片尺寸的问题 - 中国DOS联盟论坛

以下为vbs代码：

Set oImg = CreateObject("WIA.ImageFile")
Set oProc = CreateObject("WIA.ImageProcess")
oImg.LoadFile "Test.jpg" '打开当前文件夹里的Water lilies.jpg
oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境
oProc.Filters(1).Properties("MaximumWidth")="1280" '定义新图片的 宽
oProc.Filters(1).Properties("MaximumHeight")="1024" '定义新图片的 高
Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里
oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片

在实际使用过程中，比如Test.jpg为1600X1200分辨率的，则生成的New.jpg分辨率其实是1280X960，并不是我想要的1280X1024，也就是上面的代码只能做等比缩放。有什么办法能用vbs按固定格式缩放图片吗？

第1楼　lwb1978	发表于 2007-10-24 09:33
初级用户　发帖 26　积分 72
[求助]VBS+WIA只能等比改变图片尺寸的问题以下为vbs代码： Set oImg = CreateObject("WIA.ImageFile") Set oProc = CreateObject("WIA.ImageProcess") oImg.LoadFile "Test.jpg" '打开当前文件夹里的Water lilies.jpg oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境 oProc.Filters(1).Properties("MaximumWidth")="1280" '定义新图片的宽 oProc.Filters(1).Properties("MaximumHeight")="1024" '定义新图片的高 Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里 oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片在实际使用过程中，比如Test.jpg为1600X1200分辨率的，则生成的New.jpg分辨率其实是1280X960，并不是我想要的1280X1024，也就是上面的代码只能做等比缩放。有什么办法能用vbs按固定格式缩放图片吗？

第2楼　zh159	发表于 2007-10-24 11:01
金牌会员　发帖 1,467　积分 3,687
好像有个，忘了 PS：如果不等比缩放，转换的图片肯定变形