平台：win10
工具：office2016
目的：批量调整word里的图片尺寸
操作：因工作关系，需要在word里插入大量图片并调整美观，一个一个手动调整费时费力，试用了几个插件，word精灵挺好用的，但我只是偶尔用用，特意买个会员不太值当。
所以，还是用宏命令最省心。
代码1如下：
Sub setpicsize()
Dim iSha As InlineShape
For Each iSha In ActiveDocument.InlineShapes
If iSha.Type = wdInlineShapePicture Then
iSha.LockAspectRatio = msoFalse '不锁定纵横比
iSha.Width = CentimetersToPoints(5) '宽5CM
iSha.Height = CentimetersToPoints(5) '高5CM
End If
Next
End Sub
代码2如下：
Sub setpicsize()
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 300 '设置高度10.58cm
ActiveDocument.InlineShapes(j).Width = 510 '设置宽度17.99cm
Next j
End Sub