JPEGのExif情報の画像回転方向を取得

Set objImg = CreateObject("ImageMagickObject.MagickImage.1")

msg = objImg.Identify( "-format", "%[Exif:Orientation]¥n", file1 )

Set objImg = Nothing