2020-12-07

在工作中经常需要批量调整word中图片的尺寸，这可以用VBA来解决。请看代码：

Sub tupian()
   
For i = 1 To ActiveDocument.InlineShapes.Count
    If i = 1 Or i = 9 Then
        ActiveDocument.InlineShapes(i).Width = 360
        ActiveDocument.InlineShapes(i).Height = 210
    Else
        ActiveDocument.InlineShapes(i).Width = 360
        ActiveDocument.InlineShapes(i).Height = 440
    End If
    
Next


End Sub

上述代码的意思是，先获得有几个行间图片，然后从第一个遍历到最后一个。对于第一个和第九个，设置宽360，高210，对于其他图片，统一设置宽360，高440。结束！