怎么把word的图片调整成一样的大小
发布网友
发布时间：2022-02-23 05:30
共8个回答
热心网友
时间：2022-02-23 07:00
1、点击打开word软件，并同时打开需要调整的图片。这时我们可以看到word中的图片的大小都是不一致的，排版十分的凌乱，十分不美观。
2、选中第一张图片右键单击，选择调整图片的大小和位置。在弹出的设置框内勾选适合的值。
3、然后点击确定保存保存设置的值。返回word的页面，进行接下来的操作。
4、选中第二张图片。按键盘上的f4键，我们这时会发现图片的大小变成了和第一张图片一样的大小。然后依次进行操作。
热心网友
时间：2022-02-23 08:18
Word中批量设置插入图片的大小的方法如下：
1、在电脑桌面中双击Word快捷方式，或使用系统任务栏中的搜索栏搜索：word，随后点击搜索结果来打开word应用程序。
2、在打开word应用程序的软件界面右侧上方选择“空白文档”选项，系统会自动新建一个空白的文档。
3、在随后打开的软件界面上方选择“插入”选项卡，在随后打开的菜单组中选择“图片”按钮。
4、从自己的计算机中选择多张图片，并在对话框下部点击“插入”按钮。
5、任意选择一张图片，并右键选择该图片，点击“大小和位置”按钮。
6、在弹出的对话框中取消勾选“锁定纵横比”按钮。
7、随后更改高度和宽度的绝对值为统一值，点击“确定”后在文档界面按下键盘快捷键F4即可批量更改完成。
热心网友
时间：2022-02-23 09:52
批量将图片调整到相同尺寸大小，其实说实话PS也不是很好操作的。今天我们详细说明一下如何使用WORD来达到这一功能
方法/步骤
1. 打开WORD，在”工具“菜单下选择”选项“命令。
2. 在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”，为什么要这么操作，因为我们默认插入图片的方式是嵌入式，使用“选择多个对象”命令时无法选择。
3. 在“插入”菜单中选择“图片”/“来自文件”
4. 在“插入图片“对话框中选择要插入的图片。
5. 在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”
6. 使用“选中多个对象”，将所有插入的图片全部选中。
7. 双击任意一图片，在弹出的对话框中，将图片设置一固定尺寸，并取消下方的”锁定纵横比“命令。
8. 这个时候你会发现所有的图片都变成了统一尺寸大小了。
9. 那么怎么样将这些图片导出来呢？在”文件“菜单中选择”另存为“命令。
10. 在”另存为“对话框中将保存类型设置为”网页“，最后点击”确定“按钮保存文件。
11. 打开刚刚保存的文件，右击在弹出的菜单选择以”大小“进行排序。
12. 大家可以发现，我们修改的后的图片都是相同的尺寸了。
13. 其实保存的文件中有一个原图和修改尺寸后的图，我以大小进行排序的话可以很快速将他们分离出来。
热心网友
时间：2022-02-23 11:44
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的值，设置你的图片大小
热心网友
时间：2022-02-23 13:52
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
热心网友
时间：2022-02-23 16:16
2、选中第2张图片，按F4键。
3、选中第3张图片，按F4键。
4、……
热心网友
时间：2022-02-23 18:58
双击图片会出现图片工具栏，在图片高度中调到合适的高度，再复制高度，点击其他图片，粘贴在高度位置就行。
热心网友
时间：2022-02-23 21:56
