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

假设一张纸中有多张不同大小的图片。 您有什么方法可以一键放大或缩小这些图片吗？ 没有内置功能可以解决此问题，但是在本文中，我介绍了VBA代码，只需单击一下即可放大或缩小工作表中的所有图片。

VBA一键放大和缩小图片

VBA一键放大和缩小图片

请执行以下步骤以一键放大或缩小图片。

1.右键单击要在其中调整图片大小的图纸选项卡，然后选择 查看代码 从上下文菜单中。

2.在弹出 Microsoft Visual Basic应用程序s窗口，然后将以下代码粘贴到空白脚本。

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 的 插入水印 如以下屏幕截图所示。 它在30天内无限制地提供完整功能， 请下载并立即免费试用。