画像の幅・高さを取得
Set im = CreateObject("ImageMagickObject.MagickImage.1")
width = im.identify("-format", "%w", file)
height = im.identify("-format", "%h", file)
Set im = Nothing
'参照 http://kyle-in-jp.blogspot.com/2007/04/imagemagickvb.html
Set im = CreateObject("ImageMagickObject.MagickImage.1")
width = im.identify("-format", "%w", file)
height = im.identify("-format", "%h", file)
Set im = Nothing
'参照 http://kyle-in-jp.blogspot.com/2007/04/imagemagickvb.html