word文档如何批量修改图片大小？

2024-11-02 01:37:09

推荐回答（5个）

回答（1）：

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

回答（2）：

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

回答（3）：

除非你要求每一张图片的大小都一样才可能实现，而且需要设置的图片必须在同一页中。
点击绘图工具栏上的“选择对象”命令，一次选中本页中所有图片——再单击右键打开“设置自选图形格式”——“大小”——在“高度”和“宽度”中设置你的需要值。

回答（4）：

用宏可以轻松完成：
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

回答（5）：

1、打开word，工具－宏－宏（或者直接按Alt+F8）进入宏的界面，如下面所示，输入一个宏名，宏名自己起，能记住就行！
2、宏名起好了，单击“创建”进入Visual Basic 编辑器，输入如下代码并保存
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300px
Next n
End Sub
这样就可以了！