word统一设置图片格式(怎么统一设置word2007中图片格式)

内容导航：

word统一设置图片格式
怎么统一设置word2007中图片格式
WORD怎样统一设置图片格式版式

一、word统一设置图片格式

方法一:2003版操作步骤

1）菜单“插入-图片-绘制新图形”，
2）菜单“插入-图片-来自文件”，一次选择多个要插入的文件，“插入”。
3）在“绘图”工具栏中点“选择对象”工具（即“绘图”两字右面的箭头），框选刚才插入的全部图片。
4）菜单“格式-图片”，“大小”选项卡中不勾选“锁定纵横比”，再输入高度、宽度（如2厘米、1厘米），最后确定。

5)设定完统一大小后，将图片剪切到画布之外，再删除画布。

2007版操作步骤

1）“插入-形状-新建绘图画布”。
2）“插入-图片”，一次选择多个要插入的文件，“插入”。
3）“格式-选择-选择对象”，框选所有图片。
4）右击图片，选“设置图片格式”，“大小”选项卡中不勾选“锁定纵横比”，再输入高度、宽度（如2厘米、1厘米），最后确定。

5)设定完统一大小后，将图片剪切到画布之外，再删除画布。

注意：
A）画布插入后要一直选择着。
B）以上步骤按楼主“统一大小”的要求而做，但若请留意“统一大小”可能令图片变形

二、怎么统一设置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中统一图片大小的宏代码，希望你能用得上。
代码中的图片尺寸大小可以根据需要进行修改。