VBS图片处理之用VBS转化图片格式

我们常常需要转化图片的格式，虽然用Windows自带的画图工具就可以实现，但是如果有大量的图片需要转化的时候呢？那就是WIA的Convert滤镜（Filter）大显身手的时候了。

Const wiaFormatBMP  = "{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatPNG  = "{B96B3CAF-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatGIF  = "{B96B3CB0-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatJPEG = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}"
Const wiaFormatTIFF = "{B96B3CB1-0728-11D3-9D7B-0000F81EF32E}"

Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "test.bmp"
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = wiaFormatJPEG
Set Img = IP.Apply(Img)
Img.SaveFile "test.jpg"

参考链接：Convert Filter: Create a Compressed JPEG File from Another File

随机文章:

1. 隐藏系统托盘图标的小程序TrayHider
2. 未能正确加载“Microsoft.VisualStudio.Editor.Implementation.EditorPackage”包（续）
3. 用VBS修改（设置）系统时间和日期
4. VBS中的左移位&右移位运算
5. VB6拾遗：更高效的数组

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