Word 批量修改图片大小

记录一下两种修改 Word 图片大小的方法：

使用快捷键

先调整一张图片的大小之后，然后再选中第二张图片，此时按下F4 或者 Ctrl+Y，就可以重复上一次的操作。

使用VBA函数

Sub FormatPics()
  Dim Pic As InlineShape
  
  For Each Pic In ActiveDocument.InlineShapes
    If Pic.Type = wdInlineShapePicture Then
      'Pic.LockAspectRatio = msoFalse '不锁定图片的宽高比
      Pic.Width = CentimetersToPoints(10) '设置图片宽度为10CM
      'Pic.Height = CentimetersToPoints(5) '设置图片高度为5CM
    End If
  Next
End Sub

• 使用快捷键
• 使用VBA函数

VBA

截图或保存二维码