可借助WPS内置功能批量调整图片尺寸:一、用“选择窗格”配合格式刷;二、通过“查找替换”定位图片后统一缩放;三、使用VBA宏一次性重设所有图片尺寸。

如果您在WPS文档中插入了多张图片,但需要统一调整尺寸以保持排版一致性,则可借助WPS内置功能或辅助操作实现批量处理。以下是具体操作步骤:
一、使用“选择窗格”配合格式刷批量设置
该方法适用于所有图片已插入文档且样式相近的情况,通过格式刷将一张已调好尺寸的图片属性快速应用至其余图片。
1、点击任意一张图片,在“图片工具”选项卡中设置好目标宽度与高度(例如:宽度设为10厘米,高度自动缩放)。
2、按住Ctrl + A全选文档内容,再按Ctrl + H打开“替换”对话框,切换至“更多”→勾选“使用通配符”,输入查找内容:^g(代表图形对象),点击“在以下项中查找”→选择“主文档”,确认后所有图片被高亮显示。
3、按住Ctrl键依次单击选中全部图片(或使用“开始”选项卡→“选择”→“选择窗格”,在窗格中按Ctrl + 点击勾选全部图片缩略图)。
4、右键任一已设置好尺寸的图片→选择“设置为默认图片格式”。
5、再次选中其余图片→点击“开始”选项卡中的“格式刷”按钮,单击已设定尺寸的图片进行刷取。
二、通过“查找替换”定位图片后统一缩放
利用WPS的“查找图形”功能精确定位全部图片对象,并在选中状态下统一执行缩放命令,避免逐一手动调整。
1、按下Ctrl + H打开“查找和替换”对话框。
2、点击“更多”→勾选“使用通配符”,在“查找内容”栏输入:^g。
3、点击“高级查找”→“查找全部”,此时下方列表显示所有图片位置,点击列表顶部标题行(如“图形 1”)可全选所有条目。
4、关闭对话框,此时文档中所有图片已被选中。
5、在“图片工具-格式”选项卡中,取消勾选“锁定纵横比”,在“高度”框中输入目标数值(如5.5 厘米),按回车确认;若需等比缩放,则仅修改“高度”或“宽度”其一,另一项将自动适配。
三、使用VBA宏一次性重设所有图片尺寸
适用于熟悉基础脚本操作的用户,通过运行宏代码遍历文档内全部InlineShape与Shape对象,强制设定统一宽高值,不受手动选择限制。
1、按Alt + F11打开VBA编辑器,点击“插入”→“模块”。
2、粘贴以下代码:
{"answer":"协助 macOS 用户准备、转换、导出及排查 Word、PDF、Markdown、PowerPoint 和 Excel 文件,确保 WPS Office 工作流程可靠。"}
Sub ResizeAllPictures()
Dim shp As Shape
Dim ils As InlineShape
For Each shp In ActiveDocument.Shapes
shp.Width = CentimetersToPoints(8)
shp.Height = CentimetersToPoints(6)
Next shp
For Each ils In ActiveDocument.InlineShapes
ils.Width = CentimetersToPoints(8)
ils.Height = CentimetersToPoints(6)
Next ils
End Sub
3、将代码中8和6替换为您所需的厘米数值(单位为厘米)。
4、按F5运行宏,文档中所有图片将立即按指定尺寸重设。










