怎么把word的图片调整成一样的大小

怎么把word的图片调整成一样的大小

批量将图片调整到相同尺寸大小，其实说实话PS也不是很好操作的。今天我们详细说明一下如何使用WORD来达到这一功能
方法/步骤
1.  打开WORD，在”工具“菜单下选择”选项“命令。

2.    在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”，为什么要这么操作，因为我们默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。

3.  在“插入”菜单中选择“图片”/“来自文件”

4.               在“插入图片“对话框中选择要插入的图片。

5.               在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”

6.               使用“选中多个对象”，将所有插入的图片全部选中。

7.               双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。

8.               这个时候你会发现所有的图片都变成了统一尺寸大小了。

9.               那么怎么样将这些图片导出来呢？在”文件“菜单中选择”另存为“命令。

10.           在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。

11.           打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。

12.           大家可以发现，我们修改的后的图片都是相同的尺寸了。

13.    其实保存的文件中有一个原图和修改尺寸后的图，我以大小进行排序的话可以很快速将他们分离出来。

只能一张一张的设置哦

1、选中第1张图片，鼠标右键--大小和位置--将图片尺寸设置为你所需的大小。
2、选中第2张图片，按F4键。
3、选中第3张图片，按F4键。
4、……

我之前也是找不到直接的方法，就做了个宏命令

Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
Selection.InlineShapes(n).LockAspectRatio = msoFalse
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 340 '设置图片宽度 300px
Next n
End Sub

通过调整400----340的值，设置你的图片大小

用宏命令：如下文字部分是解释说明，你只需要修改括号里面的13，改成你需要的大小就ok了。另外，你直接将打开的宏里面的所有代码删除，粘贴下列程序即可。

Sub InlineShapes1()
'注：本程序的作用为 一次性把所有图片大小全设为统一的大小。
picturecount = ActiveDocument.InlineShapes.Count '这里得出本文档里面的总图片数
For i = 1 To picturecount
ActiveDocument.InlineShapes(i).LockAspectRatio = msoFalse '这里设置是否锁定比例，若为msoflase则为不锁定，若为msoture为锁定，此处设为不锁定
ActiveDocument.InlineShapes(i).Width = CentimetersToPoints(13) '在这个括号里面填上 要设置的宽度 厘米数，例如 (13)代表宽度为 13厘米
ActiveDocument.InlineShapes(i).Height = CentimetersToPoints(13) '在这个括号里面填上 要设置的高度 厘米数，例如 (13)代表高度为 13厘米
Next
End Sub