标题: [原创]vbs是强大的——图片尺寸转换（8句话搞定！） [打印本页]
作者: electronixtar 时间: 2006-10-24 23:18 标题: [原创]vbs是强大的——图片尺寸转换（8句话搞定！）
ResizeImg.vbs
Set oImg = CreateObject("WIA.ImageFile")
Set oProc = CreateObject("WIA.ImageProcess")
oImg.LoadFile "Water lilies.jpg" '打开当前文件夹里的Water lilies.jpg
oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境
oProc.Filters(1).Properties("MaximumWidth")="400" '定义新图片的 宽
oProc.Filters(1).Properties("MaximumHeight")="300" '定义新图片的 高
Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里
oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片
测试系统：Windows XP SP2 WSH 5.6，只要安装了 Windows Image Acquisition 的操作系统都可以成功运行。 Windows ME XP 都是默认安装WIA的。Set oProc = CreateObject("WIA.ImageProcess")
oImg.LoadFile "Water lilies.jpg" '打开当前文件夹里的Water lilies.jpg
oProc.Filters.Add oProc.FilterInfos("Scale").FilterID '添加一个 Scale 的滤境
oProc.Filters(1).Properties("MaximumWidth")="400" '定义新图片的 宽
oProc.Filters(1).Properties("MaximumHeight")="300" '定义新图片的 高
Set oNewImg = oProc.Apply(oImg) '保存新图片到 oNewImg 对象里
oNewImg.SaveFile "New.jpg" '把oNewImg对象保存为图片
其中 Water lilies.jpg 是 XP 自带的“示例图片”，运行vbs脚本时请确认复制Water lilies.jpg到当前脚本所在的文件夹
下次节目精彩提示：用vbs转换图片格式，摄像头截图，字符识别，语音识别……感兴趣者可以加入到我们的QQ讨论群里：21154458 。注意：本群只欢迎真心探讨、学习vbs的朋友，不是用来解答批处理/vbs问题的。
[ Last edited by electronixtar on 2006-10-24 at 11:23 PM ]
作者: lxmxn 时间: 2006-10-25 00:42
强～～学习了————
作者: vkill 时间: 2006-10-25 00:48
先学习再说
作者: utem999 时间: 2006-10-25 01:44
可惜俺还不会用呢
55555555
作者: redtek 时间: 2006-10-25 01:45
真强！！！
作者: jmz573515 时间: 2007-3-1 10:53
太棒了，顶上去！
作者: jmz573515 时间: 2007-3-1 11:09
发现一个问题，重新生成的图片大小好像是按原来图片大小（高度和宽度比例）缩放的，不知道可不可以按自定义大小缩放？（如：把一张1024*768的图片改成，300*300）
作者: ran520 时间: 2007-3-1 12:06
哇撒```试试 ```
作者: slore 时间: 2007-3-1 12:51
Windows Image Acquisition ?
Windows ME XP 都是默认安装WIA的。
我的XP就没有。。。
用了Scale应该就是比例关系。
我觉得IrfanView.exe不错小巧（不要其他的插件）功能也很强的。
（主文件大小和WIA的那个运行库差不多）
作者: vkill 时间: 2007-3-2 00:14
slore兄：
如果要用三方的话，PngMate更好些