分享一个 Word 里面的小技巧——在 Mac上批量修改图片尺寸

1. 背景

我在 Word 里面有 4 张图片，我想批量修改它们的尺寸，让其保持一致的风格。查看资料，都说 在 Win 上操作完成第一个图片后，然后选中新图片，直接按一下 F4 就可以了。但是在 Mac 上，不可以，自动调起了 搜索框。

2. 解决办法

参考视频：https://www.bilibili.com/video/BV18K4y1p75f

首选选中第一个图片，调整好图片大小 (比如：5*8厘米)， 然后不要操作任何东西，选中下一个图，然后按一下 （control+y） ，这个图片尺寸自动和上面一致了哈 （win 上是 F4， 这个快捷键不知道怎么配置的。。。）， 非常好用。

3. 还有一个更厉害的，代码操控

按 Option + F11 打开 VBA 编辑器。

Sub ResizePicturesFixed()
    Dim pic As InlineShape  '嵌入式图片（普通插入的图片）
    Dim targetWidth As Single, targetHeight As Single
    
    '设置目标宽度和高度（单位：厘米）
    targetWidth = 10  '修改为需要的宽度
    targetHeight = 8   '修改为需要的高度
    
    For Each pic In ActiveDocument.InlineShapes
        With pic
            .LockAspectRatio = msoFalse  '解锁纵横比（允许自由调整宽高）
            .Width = CentimetersToPoints(targetWidth)
            .Height = CentimetersToPoints(targetHeight)
        End With
    Next pic
    
    MsgBox "已批量调整 " & ActiveDocument.InlineShapes.Count & " 张图片尺寸！"
End Sub