如何统一设置word2007中图片格式,需要大小相同

1.怎么统一设置word2007中图片格式,需要大小相同

Sub 统一图片尺寸（）

Dim n '图片个数

On Error Resume Next '忽略错误

For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片

ActiveDocument.InlineShapes(n).Height = CentimetersToPoints(2) '高度4cm

ActiveDocument.InlineShapes(n).Width = CentimetersToPoints(2) '宽度3cm

Next n

For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片

ActiveDocument.Shapes(n).Height = CentimetersToPoints(2) '高度4cm

ActiveDocument.Shapes(n).Width = CentimetersToPoints(2) '宽度3cm

Next n

End Sub

上面是word中统一图片大小的宏代码，希望你能用得上。

代码中的图片尺寸大小可以根据需要进行修改。

2.如何统一设置在一word文档里大量图片的格式

如果 你 的 图片 都是 横放或者竖放，这很简单：例如：word 默认 A4 是21厘米 宽， 你的图片要求 宽 都是 10厘米那么，你把 word 的 页面设置 、页边距 设置为： 左 5里面，右 6厘米 然后再插入图片，则大多数 图片 的宽度都是 10厘米啦。

然后，把文档页边距设置回你需要的文档宽度。当然，可能你的 图片 有的原图 没有 10厘米宽，建议你不要使用，因为原图拉大，效果就不好了。

如果必须使用，毕竟是少数，手动把这少数 一 两张 设置好就是如果你原图 的高度不一样，但是 也都要 一样高，这个的话，就用Photoshop 的批处理 ，处理成同样的宽度、高度就是，再插入word。