Board logo

标题: [求助]VBS+WIA只能等比改变图片尺寸的问题 [打印本页]

作者: lwb1978     时间: 2007-10-24 09:33    标题: [求助]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按固定格式缩放图片吗?

作者: zh159     时间: 2007-10-24 11:01
好像有个,忘了

PS:如果不等比缩放,转换的图片肯定变形