word批量裁剪图片,并调整图片大小,不锁定纵横比

在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批量裁剪图片-****博客

上一篇:【知了社保-注册安全分析报告-无验证方式导致安全隐患】


下一篇:在线点餐新体验:Spring Boot 点餐系统