怎样批量调整word 图片大小

Question

怎样才能把word中所有图片的大小调整为原来的50%？（是空间大小？

Answer 1

Word如何批量调整图片大小？

Answer 2

批量调整word中插入的图片大小，需要用到“选中多个对象”这个工具；操作方法如下：

1；文档中所有的图片无论是放在一页，还是分布在多页上，操作都一样；

     先在文档绘图工具栏中点下“选中多个对象”工具；

2；弹出的操作框中，点“全选”，点"全选“后，在”对象“这里的图片即被打上勾；然后，点确定；

3；点确定后，文档中所有图片即被同时选中；

4；然后，在任意一张图片上鼠标右键点下，弹出的菜单中点“设置图片格式”；

5；弹出的操作框中，点下“大小”；打开“大小”设置框；在“高度”和“宽度”分别       设置自己预定的数字；在“锁定纵横比”和“相对原始图片大小”这两处要取消勾；然     后点确定。

6；点确定后，文档中所有图片都同时一次的批量的调整了大小。

Answer 3

我知道通过宏可以批量完成一个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

Answer 4

如果你的图片不是“嵌入型”，可以用Ctrl+鼠标左键逐个点击有所图片，然后在任意一个上面双击，图片——大小——高度——输入50，确定！

Answer 5

分析：由于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.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。