批量剪裁图片word

1. word2007裁剪和改变图片大小的宏，怎么批量修改，求大神修改下面宏代码，要求批量修改！！！！！

Sub 裁剪() '本操作批量裁剪图片
left_cut = 4.1 '左边裁剪的大小 单位厘米
right_cut = 1.2 '右
top_cut = 2.3 '上
bottom_cut = 2.4 '下
scales = 1 / 0.03528 ' 一磅等于0.03528厘米
Dim n '图片个数
'On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
With ActiveDocument.InlineShapes(n).PictureFormat
origHeight = ActiveDocument.InlineShapes(n).Height
origWidth = ActiveDocument.InlineShapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
With ActiveDocument.Shapes(n).PictureFormat
origHeight = ActiveDocument.Shapes(n).Height
origWidth = ActiveDocument.Shapes(n).Width
.CropBottom = bottom_cut * scales
.CropLeft = left_cut * scales
.CropRight = right_cut * scales
.CropTop = top_cut * scales
End With
Next n
End Sub
'*************************************
Sub Macro() ’改变图片大小，缩放不裁剪，批量操作
Mywidth=10'10为图片宽度（厘米）
Myheigth=10'10为图片高度（厘米）
For Each iShape In ActiveDocument.InlineShapes
iShape.Height = 28.345 * Myheigth
iShape.Width = 28.345 * Mywidth
Next iShape
End Sub

2. Word图片修剪可以批量吗

可以批量修改图片大小，但是不能批量修剪图片。

3. word如何批量裁剪图片大小

答：word如何批量裁剪图片大小：

• 首先我们将word打开，点击上面的【插入】选项，在里面点击【图片】，如图所示。

  

4. word中如何对上百张图片进行批量裁剪

如果用WORD怕是很难操作的。有个“曲线”点的方法可以操作：
1、将WORD文档另存为网页文件，它就会在保存位置自动生成一个文件夹，文档里的所有图片就被单独保存下来的。
2、用PS里面有一个“动作"功能，录制一个裁剪尺寸的动作就可以一次将上百张图片调整好，再重新导入回WORD中。
至于如何使用PS的“动作”功能，就不在本问题之内了，上网搜下也会有不少教程的。

5. 在WORD文档中如何同时对多张图片进行编辑

1、首先在Word文档中插入三张图片，例如需要批量对三张图片进行大小的编辑。

6. word批量修改图片后不清楚了

图片被压缩了。
如果是在默认的情况下修改图片word程序会自动压缩插入word文档中的图片以减小整个word文档。
点击-文件菜单，点击-选项-打开word选项-点击高级-找到-图像大小和质量选项，勾选-不压缩文件中的图像就可以了。

7. Word里怎么批量删除重复的图片

1打开Word，建立空白文档。
2在文档中插入多张图片作为示例。3将文档中的图片设置为嵌入型。
4点击【编辑】下的【替换】，或者按组合键Ctrl+H。
5接着将打开【查找和替换】窗口，在【查找内容】中输入【^g】，在【替换为】中不输入任何内容，然后点击【全部替换】。
6然后将提示全部替换完成。
7再看源文档，文档中的图片就全部都没有了。
8需要注意的是，这种方法对衬于文字上方或下方的图片不起用。演示如下。把源文档中的全部图片设置为【衬于文字上方】或【衬于文字下方】。
9然后执行相同的替换操作。
10可以看到，没有一张图片被替换成功。