Word中插入图片如何快速设置大小

方法1：最稳（大量图片）：VBA 宏一键批量（推荐）

适用：几十张图、表格内外混合、要精确尺寸

1. 按 Alt+F11 打开 VBA 编辑器
2. 插入 → 模块 → 粘贴下面代码
   Sub 批量调整表格图片大小() Dim tbl As Table Dim cel As Cell Dim ishp As InlineShape ' 遍历所有表格 For Each tbl In ActiveDocument.Tables ' 遍历每个单元格 For Each cel In tbl.Range.Cells ' 遍历单元格内所有嵌入式图片 For Each ishp In cel.Range.InlineShapes If ishp.Type = wdInlineShapePicture Then ' 【在这里改尺寸：厘米】 ishp.Height = CentimetersToPoints(3) ' 高3cm ishp.Width = CentimetersToPoints(4) ' 宽4cm End If Next Next Next MsgBox "表格内图片已统一尺寸！" End Sub

• 修改代码里的 3、4 为你要的高宽（厘米）
• 按 F5 运行 → 完成

 

方法2：VBA 批量解锁（大量图片 / 表格专用）

如果你要批量解锁 + 批量设尺寸，用下面宏（直接复制用）：

 

Sub 批量取消图片锁定纵横比() Dim ishp As InlineShape Dim shp As Shape ' 取消所有嵌入式图片锁定 For Each ishp In ActiveDocument.InlineShapes ishp.LockAspectRatio = msoFalse ' 解锁 ' 同时设尺寸（厘米） ishp.Height = CentimetersToPoints(4) ishp.Width = CentimetersToPoints(6) Next ' 取消所有浮动式图片锁定 For Each shp In ActiveDocument.Shapes shp.LockAspectRatio = msoFalse shp.Height = CentimetersToPoints(4) shp.Width = CentimetersToPoints(6) Next MsgBox "已批量取消所有图片锁定纵横比！" End Sub

 

用法：Alt+F11 → 插入模块 → 粘贴 → F5 运行

 

以上内容由豆包生成，仅供参考