怎样批量调整word 图片大小
发布网友
发布时间：2022-02-21 11:22
共5个回答
懂视网
时间：2022-02-21 15:43
word设置所有图片一样大的方法：
1.用电脑里的Word软件打开所需文本。
2.鼠标右键点击要修改大小的图片，选择大小和位置。
3.修改图片的大小，点击确定。
4.选择其他要修改大小的图片，点击F4即可统一设置大小。
总结
1.用Word打开所需文本
2.鼠标右键点击图片并选择大小和位置
3.修改图片的大小后点击确定
4.选择其他图片并点击F4
热心网友
时间：2022-02-21 13:08
批量调整word中插入的图片大小，需要用到“选中多个对象”这个工具；操作方法如下：
1；文档中所有的图片无论是放在一页，还是分布在多页上，操作都一样；
先在文档绘图工具栏中点下“选中多个对象”工具；
2；弹出的操作框中，点“全选”，点"全选“后，在”对象“这里的图片即被打上勾；然后，点确定；
3；点确定后，文档中所有图片即被同时选中；
4；然后，在任意一张图片上鼠标右键点下，弹出的菜单中点“设置图片格式”；
5；弹出的操作框中，点下“大小”；打开“大小”设置框；在“高度”和“宽度”分别 设置自己预定的数字；在“锁定纵横比”和“相对原始图片大小”这两处要取消勾；然 后点确定。
6；点确定后，文档中所有图片都同时一次的批量的调整了大小。
热心网友
时间：2022-02-21 15:32
如果你的图片不是“嵌入型”，可以用Ctrl+鼠标左键逐个点击有所图片，然后在任意一个上面双击，图片——大小——高度——输入50，确定！
热心网友
时间：2022-02-21 18:14
分析：由于Word不能像excel一样多选图片，所以不能多选图片后统一缩放，所以考虑可以重复多次一样动作的宏功能：
打开视图-宏-输入一个名字-创建
2.输入以下代码，注意替换内有的内容和尺寸不是下面的5cm可以直接更改。
Sub
FormatPics()
Dim
iSha
As
InlineShape
For
Each
iSha
In
ActiveDocument.InlineShapes
If
iSha.Type
=
wdInlineShapePicture
Then
iSha.LockAspectRatio
=
msoFalse
'不锁定纵横比
iSha.Width
=
CentimetersToPoints(5)
'宽5CM
iSha.Height
=
CentimetersToPoints(5)
'高5CM
End
If
Next
End
Sub
3.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。
热心网友
时间：2022-02-21 21:12
我知道通过宏可以批量完成一个word中所有图片大小的修改，在次与大家共享，也希望可以给大家参考。
1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
Next j
End Sub
3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub
