Excel中如何快速统一调整图片大小？3种高效方法详解

方法一：手动统一调整（适用于少量图片）

如果只有几张图片需要调整，可以直接手动操作：

1. 选中第一张图片，按住 Ctrl 键依次点击其他图片，或按住 Shift 键选择连续的多张图片。
2. 在“图片格式”选项卡的“大小”组中，直接输入高度或宽度数值（例如5厘米），另一项会自动等比缩放。
3. 若希望所有图片等比例缩放，确保“锁定纵横比”已勾选。

方法二：利用快捷键批量调整（推荐）

对于多张图片，使用快捷键可以快速应用相同尺寸：

1. 选中其中一张图片，按 Ctrl + Shift + V 复制其格式。
2. 选中所有需要调整的图片（Ctrl+A可全选当前工作表中的图片）。
3. 按 Ctrl + Shift + V 粘贴格式，所有图片将统一为第一张图片的大小。

提示：若图片被嵌入到单元格中，需先取消嵌入（右键图片 -> 大小和属性 -> 属性 -> 选择“大小固定”）。

方法三：VBA一键自动化（适用于大量图片）

当图片数量巨大或需要频繁操作时，VBA宏是终极方案：

1. 按 Alt + F11 打开VBA编辑器，插入模块。
2. 复制以下代码：

   Sub ResizePictures()
       Dim pic As Shape
       Dim targetWidth As Single
       Dim targetHeight As Single
       targetWidth = 5 ' 目标宽度（厘米）
       targetHeight = 5 ' 目标高度（厘米）
       For Each pic In ActiveSheet.Shapes
           If pic.Type = msoPicture Then
               pic.Width = Application.CentimetersToPoints(targetWidth)
               pic.Height = Application.CentimetersToPoints(targetHeight)
           End If
       Next pic
   End Sub

3. 关闭编辑器，按 Alt + F8 运行宏即可。

以上方法可根据实际需求选择。推荐使用第二种快捷键方式，平衡效率与操作难度。对于追求极致的自动化，VBA是不二之选。