VBA 统一修改word 文档中的图片大小

Sub change_pic()

    Dim doc As Document
    
    Set doc = Application.ActiveDocument
    
    For Each i In doc.InlineShapes

        i.LockAspectRatio = True    ' 锁定长宽比
        i.Height = 520              ' 设置高度
        i.Width = 320               ' 设置宽度
        
    Next i

End Sub

如果锁定长宽比为True的话，高度和宽度设置一个就行，不然会以最后设置的属性为准进行调节。
（当然，上例实际上是先按高度调整，再按宽度调整）