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. 文件夹拒绝访问且文件夹显示为空的解决方法
  2. 匹配C语言风格注释的正则表达式
  3. 再谈凯撒密码
  4. VBSCript 之 GenerateSDDL 函数
  5. 利用WMI打造完美“三无”后门-Downloader and Uploader

2 条评论 发表在“VBS图片处理之用VBS缩放图片大小”上

  1. sx说道:

    前辈,能加你QQ号吗?以后想跟你探讨问题。

  2. 枫谷剑仙说道:

    用了之后8位灰阶BMP全变成了32位

留下回复