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

标签： , , ,

标题: VBS图片处理之用VBS缩放图片大小
作者: Demon
链接: https://demon.tw/programming/vbs-scale-picture.html
版权: 本博客的所有文章，都遵守“署名-非商业性使用-相同方式共享 2.5 中国大陆”协议条款。

用到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. VBS图片处理之用VBS转化图片格式
  2. VBS中也有Vector
  3. 用VBS获取图片分辨率
  4. 在VB中创建和使用VBS的内置WScript对象？
  5. 用VBS压缩ZIP文件

随机文章:

  1. VBS调用CAPICOM对象实现SHA1&MD5加密
  2. VB6拾遗：字符串与Unicode
  3. VBS Scripting.Dictionary字典对象按键名Key进行冒泡排序
  4. 用VBS实现PHP的crc32函数
  5. VBS内置函数大全

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

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

  1. sx说道：
    2015年08月12日 21:58

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

    回复
  2. 枫谷剑仙说道：
    2015年09月7日 18:36

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

    回复

留下回复