在word中有若干图片待处理,裁剪出指定内容,调整成指定大小。如下是待处理的图片:
这时,选择视图,选择宏,查看宏
选择创建宏
添加cut_picture代码如下,其中上、下、左、右裁剪的橡塑尺寸根据自己需要调整
Sub cut_picture()
'
' cut_picture 宏
'
'
For Each iShape In ActiveDocument.InlineShapes
With iShape.PictureFormat
.CropTop = 20 '顶部裁剪像素量
.CropBottom = 40 '底部裁剪像素量
.CropLeft = 175 '左侧裁剪像素量
.CropRight = 150 '右侧裁剪像素量
End With
Next iShape
End Sub
添加size_picture代码如下,根据第一张图片的尺寸对其余图片的高度,宽度按照1:1调整,并且不锁定纵横比
Sub size_picture()
'
' size_picture 宏
'
'
Dim n
n = 1
Dim picwidth
Dim picheight
picheight = ActiveDocument.InlineShapes(n).Height '获取第一张图片高
picwidth = ActiveDocument.InlineShapes(n).Width '获取第一张图片宽
On Error Resume Next '忽略错误
For Each iShape In ActiveDocument.InlineShapes '循环
iShape.LockAspectRatio = False '不锁定纵横比
iShape.Height = picheight * 1 '设置高度为1倍
iShape.Width = picwidth * 1 '设置宽度为1倍
Next iShape
End Sub
运行cut_picture,裁剪后的效果如下,
手动调整第一张图片的尺寸如下,
运行size_picture,结果如下
如此,即可实现word中图片批量裁剪和尺寸调整
本文参考(1)word中用宏批量修改图片大小_批量调整图片大小的宏代码-****博客
本文参考(2)Word小技巧:图片批量裁剪与大小调整_word批量裁剪图片-****博客