Word使用宏批量设置图片大小

打开word插入需要的图片并保存后，按Alt+F11打开宏，点击插入——模块，输入下方代码，点击运行——运行子过程/用户窗体，即可设置大小，可以根据需要更改targetWidth，targetHeight

Sub ResizeAllImages()
    On Error Resume Next
    
    Dim img As InlineShape
    Dim width As Single, height As Single
    Dim targetWidth As Single, targetHeight As Single
    
    ' 设置目标大小
    targetWidth = 200  ' 设定目标宽度（以磅为单位）
    targetHeight = 200  ' 设定目标高度（以磅为单位）
    
    ' 遍历文档中的所有图片
    For Each img In ActiveDocument.InlineShapes
        With img
            ' 获取当前图片的原始尺寸
            width = .Width
            height = .Height
            
            ' 计算缩放比例
            If width > height Then
                .Width = targetWidth
                .Height = (targetWidth / width) * height
            Else
                .Height = targetHeight
                .Width = (targetHeight / height) * width
            End If
        End With
    Next img
    
    MsgBox "所有图片大小已设置为：" & targetWidth & " x " & targetHeight & " 磅。", vbInformation
End Sub