关于Word里面图片设置问题

Sub 统一图片尺寸()

Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(4) '高度4cm
ActiveDocument.InlineShapes(n).Width = CentimetersToPoints(3) '宽度3cm
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = CentimetersToPoints(4) '高度4cm
ActiveDocument.Shapes(n).Width = CentimetersToPoints(3) '宽度3cm
Next n

End Sub

上面是word中统一图片尺寸的宏代码，希望你能用得上。
ps：代码中的高和宽的数字大小，可以根据需要进行修改。

只要你将图片在黏贴到Word之前就将图片大小调整一致，是可以的。

简单的就是 查找和选择 定位条件 对象 让后点选中的图片右键 大小和属性 可设置