如何在 Excel 中一键放大或缩小图片？

假设一个工作表中有多个不同大小的图片，您是否有办法通过单击将这些图片调整为统一大小？Excel 本身并没有内置功能来解决这个问题，但本文中我将介绍一种 VBA 代码，可以一键放大或缩小工作表中的所有图片。

使用 VBA 一键放大和缩小图片

使用 VBA 一键放大和缩小图片

请按照以下步骤操作以一键放大或缩小图片。

1. 右键单击要调整图片大小的工作表标签，并选择 查看代码 从右键菜单中。

2. 在弹出的 Microsoft Visual Basic for Applications 窗口中，将以下代码粘贴到空白脚本中。

VBA：一键放大和缩小图片

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyEntendoffice20161111
    Application.ScreenUpdating = False
    Dim xRg As Range, sPic As Shape
      For Each sPic In ActiveSheet.Shapes
        If Target.Column > 1 Then
            Set xRg = Target.Offset(, -1)
            With sPic
              If TypeName(.OLEFormat.Object) = "Picture" Then
                  If .TopLeftCell.Address = xRg.Address Then
                      .Height = 350
                      .Width = 250
                  End If
              End If
            End With
        ElseIf Target.Column = 1 Then
            With sPic
                If TypeName(.OLEFormat.Object) = "Picture" Then
                   .Height = 60
                   .Width = 60
                End If
            End With
        End If
      Next sPic
    Application.ScreenUpdating = True
End Sub

3. 保存代码并关闭窗口。当您单击 A 列中的任意单元格时，所有图片都会被缩小。请参见截图：

4. 当您单击图片右上角的单元格时，对应的图片会被放大。请参见截图：

提示：如果您想快速在工作表中插入水印，请尝试使用 Kutools for Excel 的 插入水印 功能，如下图所示。