跪求批处理 每个图片上方切掉15像素 下方切掉30像素 左边切掉50像素 右边切掉65像素

crownking1983

处理一批长宽均相同的图片有jpg有png，由于要镶嵌一个图框模版，跪求批处理程序将所有图片处理：

每个图片上方切掉15像素 下方切掉30像素 左边切掉50像素 右边切掉65像素 上下左右都是切掉固定的像素

感谢大神！

aloha20200628

以下代码存为 test.bat 运行，与 magick.exe 和图片文件 *.jpg, *.png 同目录，建议运行前先做好源图片备份。
可从本论坛第三方  http://bcn.bathome.net/s/tool/index.html?key=magick 直接下载 magick.exe, 落地即用。

1. @echo off &for %%F in (*.jpg, *.png) do magick "%%F" -crop "%%[fx:w-50-65]x%%[fx:h-15-30]+50+15" +repage "%%F"
   
2. pause&exit/b

复制代码

crownking1983

aloha20200628 发表于 2026-4-27 22:04
以下代码存为 test.bat 运行，与 magick.exe 和图片文件 *.jpg, *.png 同目录，建议运行前先做好源图片备份 ...

感谢大神！

jiavip

为什么不用  VBS 呢？

1. Dim Img, IP
   
2. 
   
3. ' 创建 WIA 对象
   
4. Set Img = CreateObject("WIA.ImageFile")
   
5. Set IP = CreateObject("WIA.ImageProcess")
   
6. 
   
7. ' 加载图片
   
8. Img.LoadFile "C:\test.jpg"
   
9. 
   
10. ' 添加裁剪滤镜
    
11. IP.Filters.Add IP.FilterInfos("Crop").FilterID
    
12. 
    
13. ' 设置裁剪参数（像素单位）
    
14. IP.Filters(1).Properties("Left") = 100   ' 左边缘裁剪距离
    
15. IP.Filters(1).Properties("Top") = 50     ' 上边缘裁剪距离
    
16. IP.Filters(1).Properties("Right") = 100  ' 右边缘裁剪距离
    
17. IP.Filters(1).Properties("Bottom") = 50  ' 下边缘裁剪距离
    
18. 
    
19. ' 应用裁剪
    
20. Set Img = IP.Apply(Img)
    
21. 
    
22. ' 保存结果
    
23. Img.SaveFile "C:\test_cropped.jpg"

复制代码

crownking1983

jiavip 发表于 2026-5-3 02:24
为什么不用  VBS 呢？

感谢大佬！