怎么统一配置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中统一图片巨细的宏代码，但愿你能用得上。

代码中的图片尺寸巨细可以按照需要举办修改。

假如 你 的 图片 都是 横放可能竖放，这很简朴：比方：word 默认 A4 是21厘米 宽， 你的图片要求 宽 都是 10厘米那么，你把 word 的 页面配置 、页边距 配置为： 左 5内里，抖客教程网，右 6厘米 然后再插入图片，则大大都 图片 的宽度都是 10厘米啦。

然后，把文档页边距配置回你需要的文档宽度。虽然，大概你的 图片 有的原图 没有 10厘米宽，发起你不要利用，因为原图拉大，结果就欠好了。

假如必需利用，究竟是少数，手动把这少数 一 两张 配置好就是假如你原图 的高度纷歧样，可是 也都要 一样高，这个的话，就用Photoshop 的批处理惩罚 ，处理惩罚成同样的宽度、高度就是，再插入word。