超有用的word宏代码——批量裁剪图片

对于一大堆相似的图片要进行相同的裁剪，上下左右裁剪的距离都差不多，可以使用下面的宏代码，按一次快捷键即可裁剪一张图片。代码来自知乎word2010怎样批量裁剪图片宏命令
该链接下面还有一个一次性裁剪所有图片的代码，我没有尝试，所以这里只说一张一张快速裁剪的代码，如果图片只有几十张一百多张，其实也挺快的，下面设置宏命令的操作方法非常详细。```

Sub cut()left_cut = 0right_cut = 0top_cut = 0bottom_cut = 17pic_height = 28pic_width = 20On Error Resume Next 'scales = 1 / 0.03528If Selection.InlineShapes.Count > 0 ThenWith Selection.InlineShapes(1).PictureFormat.CropBottom = bottom_cut * scales.CropLeft = left_cut * scales.CropRight = right_cut * scales.CropTop = top_cut * scalesEnd WithSelection.InlineShapes(1).LockAspectRatio = msoFalseSelection.InlineShapes(1).Height = pic_height * scalesSelection.InlineShapes(1).Width = pic_width * scalesElseWith Selection.ShapeRange(1).PictureFormat.CropBottom = bottom_cut * scales.CropLeft = left_cut * scales.CropRight = right_cut * scales.CropTop = top_cut * scalesEnd WithSelection.ShapeRange(1).LockAspectRatio = msoFalseSelection.ShapeRange(1).Height = pic_height * scalesSelection.ShapeRange(1).Width = pic_width * scalesEnd If
End Sub

代码到此结束，其中
left_cut = 0
right_cut = 0
top_cut = 0
bottom_cut = 17
这四句话表示左右上下分别要裁剪的尺度，单位是cm，根据不同的需求更改等号后面的数字即可。
操作方法：1. 打开word20162. 单击 视图 选项卡3. 单击 宏——录制宏4. 取宏名为cut，如果取其他名字的话代码第一排cut更改为你取得宏名也可以5. 将宏指定到 键盘6. 按你想设置的快捷键，比如我按的是 ctrl+f7. 单击指定，然后关闭，此时鼠标就不一样了，这时候已经进入录制宏状态了，我们不管8. 继续，单击 视图 选项卡，单击宏——停止录制9. 继续，单击 查看宏，选择刚刚录制的那一个宏，即选中宏名为cut 的那一个10.单击右侧的编辑，将界面的所有代码用我们上面的代码覆盖掉， 将上下左右的数字改为你的图片需要裁剪的尺寸，保存后关闭这个页面即可。11. 按道理来说改到这里应该可以使用了，使用方法如下：选择你要裁剪的图片，按ctrl+f（你设置的快捷键）。多张图片重复操作即可。12. 但是我还是不可以，所以继续操作13. 文件——选项——自定义功能区——键盘快捷方式：自定义（最下方）14. 类别 拉到最下面，选择宏，在右边选择你刚刚的宏，也就是 cut15. 请按新的快捷键——按ctrl+f——指定——关闭——关闭
这个时候就可以了，选择要裁剪的图片，按ctrl+f，搞定。
tips：可以多次修改代码中的裁剪距离，达到自己的目的，每一次裁剪都是在原图的基础上执行裁剪，而不是已经修改的图上再次执行。比如之前top裁剪了top_cut = 5，还要再裁剪1cm才合适，那么改成top_cut = 6再次执行即可，而不是top_cut = 1。

超有用的word宏代码——批量裁剪图片相关推荐

qt 批量裁剪图片_照片变素描，不用下载App，好用的在线图片处理及图库
我们要处理图片时,无论是在电脑还是手机上,往往都需要下载软件,但如果你只是临时用一下的话,下载软件难免显得工程有点浩大.下面就推荐几个图片处理网站,打开网页就能用. 1.图片处理 funny.pho. ...
php批量裁剪图片,怎么批量裁剪图片按照一定的比例快速裁剪多张照片的方法，自定义裁剪图片大小...
在日常工作学习或休闲娱乐中,都会遇到要处理图片的时候,比方说对拍摄的照片进行裁剪操作,将拍摄进去的不需要的部分裁剪掉.对于一两张或几张图片裁剪的话逐个操作也不会太耗时,然而如果有一系列的十几张甚至几十 ...
用Python批量裁剪图片
这篇博文主要介绍如何批量裁剪图片,直接上代码,注释已经讲得很清楚了. # coding: utf-8 from PIL import Image import os import os.path im ...
根据LabelImg标注的方框大小批量裁剪图片
根据LabelImg标注的方框大小批量裁剪图片用LabelImg软件在windows下标注了图片了后,可以根据标注的大小进行图片的裁剪,下图是LabelImg软件图代码代码可实现对图片批量裁剪处 ...
word文档批量插入图片及其文件名
word文档批量插入图片及其文件名-宏脚本处理 Sub PicWithCaption()Dim xFileDialog As FileDialogDim xPath, xFile As Variant ...
python批量裁剪图片_python批量裁剪图片
"""用Pythonp批量裁剪图片""" from PIL import Image import matplotlib.pyplot as ...
按特定区域/指定位置批量裁剪图片
除Photoshop以外,发现一款个人觉得比Photoshop更好用的批量裁剪图片的工具,尤其是针对想指定固定位置和区域的需求来说使用IRFANVIEW批量裁剪很好用. IRFANVIEW支持的功 ...
自动批量裁剪图片的工具有哪些？这些软件你值得拥有
小伙伴平时在处理图片的时候,发现只需要应用图片的某个区域,你们会怎么做呢?试想一下,如果将图片不需要的部分打码,可能会影响图片整体的美观.我的建议是,将图片需要的部分裁剪出来,这样也可以得到图片的 ...
【windows】批量裁剪图片V1.0
一.需求: 批量将文件夹中所有的图片裁剪为统一像素的图片二.使用教程与说明: 1.提交批量图片所在的文件夹 2.填写裁减后图片的宽与高像素 3.选择保存文件的文件夹 4.点击提交按钮,等待结束注意 ...
word文档批量选中图片宏代码怎么写？
以下是 Word 文档中批量选中图片的 VBA 宏代码: Sub SelectAllPictures()Dim oShape As ShapeFor Each oShape In ActiveDocu ...

超有用的word宏代码——批量裁剪图片

超有用的word宏代码——批量裁剪图片相关推荐

最新文章

热门文章