Word文档批量调整图片大小

VBA（Visual Basic for Applications）是处理Word批量操作最强大的工具。通过编写简单的宏代码，可以一键调整文档中所有图片的尺寸。

基础VBA代码示例

Sub ResizeAllPictures()
    Dim pic As InlineShape
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            ' 设置图片宽度为400磅（约5.5英寸）
            pic.Width = 400
            ' 高度将按比例自动调整
            ' pic.Height = 300  ' 如果需要固定高度，取消此行注释
        End If
    Next pic
    MsgBox "所有图片已调整完成！", vbInformation
End Sub

高级VBA代码（保持原始比例）

Sub ResizePicturesWithRatio()
    Dim pic As InlineShape
    Dim maxWidth As Single
    Dim maxHeight As Single
    
    maxWidth = 500  ' 最大宽度（磅）
    maxHeight = 400 ' 最大高度（磅）
    
    Application.ScreenUpdating = False
    
    For Each pic In ActiveDocument.InlineShapes
        If pic.Type = wdInlineShapePicture Then
            ' 锁定纵横比进行缩放
            pic.LockAspectRatio = msoTrue
            
            ' 按宽度优先调整
            If pic.Width > maxWidth Then
                pic.Width = maxWidth
            End If
            
            ' 如果高度超标，按高度调整
            If pic.Height > maxHeight Then
                pic.Height = maxHeight
            End If
        End If
    Next pic
    
    Application.ScreenUpdating = True
    MsgBox "图片批量调整完成！", vbInformation
End Sub