如何批量调整word的图片大小

Question

如题所述

Answer 1

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

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

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.宏-运行，可以直接批量缩放图片尺寸，左边为最终效果图。本回答被网友采纳

Answer 4

Word如何批量调整图片的大小？这个视频告诉你！

Answer 5

Word如何批量更改图片尺寸？这个视频告诉你怎么操作，让你轻松上手。