Question

word2010如何批量修改图片大小？

Answer 1

Answer 2

打开word2010，“视图”——“宏”——“查看宏”——创建一个新的宏并命名，例如宏1。
（1）将所有图片按比例缩放（例如比例为0.6倍）
粘贴如下代码：
sub
宏1()
'设置图片大小
dim
n
'图片个数
dim
picwidth
dim
picheight
on
error
resume
next
'忽略错误
for
n
=
1
to
activedocument.inlineshapes.count
'inlineshapes类型图片
picheight
=
activedocument.inlineshapes(n).height
picwidth
=
activedocument.inlineshapes(n).width
&n...

Answer 3

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