画像の幅・高さを取得

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