Hatena::Groupvbscript

WIA.ImageProcess

主要な Windows 標準コンポーネントの一覧 → http://vbscript.g.hatena.ne.jp/keyword/ProgID
VBScript 基礎文法最速マスター → http://vbscript.g.hatena.ne.jp/cx20/20100131/1264906231

WIA.ImageProcess

WIA.ImageProcess

概要

WIA.ImageProcess は、Windows Image Acquisition (WIA) の ImageProcess オブジェクト を表す ProgID です。

WIA Automation Layer を使用することで、Windows の画像処理を自動化することが可能です。

サンプル

' File : ResizeImageFile.vbs
' Usage : CScript //Nologo ResizeImageFile.vbs
' Description : VBScript から Windows Image Acquisition Automation Layer を使用して画像サイズを変更するサンプル。
Option Explicit

Call Main()

Sub Main()
    Dim img
    Dim ip

    Set img = CreateObject("WIA.ImageFile")
    Set ip = CreateObject("WIA.ImageProcess")

    img.LoadFile "C:\home\edu\vbscript\WIA\hello\300x300.bmp"

    ip.Filters.Add ip.FilterInfos("Scale").FilterID
    ip.Filters(1).Properties("MaximumWidth") = 150
    ip.Filters(1).Properties("MaximumHeight") = 150

    Set img = ip.Apply(img)
    img.SaveFile "C:\home\edu\vbscript\WIA\hello\150x150.bmp"
End Sub

参考情報