VBS图片处理之用VBS缩放图片大小

用到WIA中的Scale滤镜

Dim Img 'As ImageFile
Dim IP 'As ImageProcess
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "test.jpg"
IP.Filters.Add IP.FilterInfos("Scale").FilterID
IP.Filters(1).Properties("MaximumWidth") = 100
IP.Filters(1).Properties("MaximumHeight") = 100
Set Img = IP.Apply(Img)
Img.SaveFile "test.jpg"

参考链接：Scale Filter: Resize an Image

随机文章:

1. 用Tiny C Compiler编译Lua
2. 远程桌面连接用户名密码错误的解决方法
3. 用C语言实现凯撒密码算法
4. 用VBS判断无BOM头的文件是否UTF-8编码
5. VBS转EXE工具：ExeScript

这篇文章发布于 2010年10月20日，星期三，18:36，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。