中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

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

lwb1978
初级用户

积分 72
发帖 26
注册 2007-5-17
状态离线

『楼主』: [求助]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按固定格式缩放图片吗？

2007-10-24 09:33

zh159
金牌会员

积分 3687
发帖 1467
注册 2005-8-8
状态离线

『第 2 楼』:

好像有个，忘了

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

2007-10-24 11:01

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。

可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题

论坛跳转: