Set objImg = CreateObject("ImageMagickObject.MagickImage.1")
msgs = objImg.Convert("-geometry", "130x130", file_in, file_out)
Set objImg = Nothing
'オプション "-thumbnail" Exif情報削除