
CODE: [Copy to clipboard]附注:Dim Img '图片文件
Dim IP '图片处理
Set Img = CreateObject("WIA.ImageFile")
Set IP = CreateObject("WIA.ImageProcess")
Img.LoadFile "Bliss.bmp" '载入原始图片
IP.Filters.Add IP.FilterInfos("Convert").FilterID
IP.Filters(1).Properties("FormatID").Value = "{B96B3CAE-0728-11D3-9D7B-0000F81EF32E}" '这里的格式可以自行设定,见附表
IP.Filters(1).Properties("Quality").Value = 5 '图片质量
Set Img = IP.Apply(Img) '应用
Img.SaveFile "BlissCompressed.jpg" 保存转换后的图片
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| Quote: | |
|
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |