[求助]VBS+WIA只能等比改变图片尺寸的问题 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

以下为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按固定格式缩放图片吗？