如何在 Excel 中单击一下即可放大或缩小图片？

Excel 2019 使用者不仅可以加入数值数据，还可以加入图片和图形。包含图片和其他图像是一种让您的电子表格看起来更吸引人的好方法。您可以生成自己的照片添加到工作簿中，或者像在 Microsoft Word 中一样将图片复制粘贴到电子表格中。您甚至可以创建自己的图像来添加。

Excel 使您可以导入图形、形状、符号，甚至是在网上可以找到的 3D 图像和照片。假设工作表上有几张图片，它们的大小从很小到很大不等。您想只需单击一下即可放大或缩小这些照片。没有内置函数可以解决这个问题。

在本教程中，您将学习关于使用 VBA 代码放大或缩小 Excel 中图像的方法。

使用 VBA 代码放大或缩小图片

按照以下步骤编写 VBA 代码。

步骤 1

我们在 Excel 工作表中添加了以下图像。

步骤 2

打开一个 Excel 工作表，右键单击您希望调整图像大小的工作表标签。然后从出现的上下文菜单中选择“**查看代码**”。或者您可以按 F11 打开 VBA 窗口。

步骤 3

将打开弹出的 Microsoft Visual Basic for Applications 窗口。

在为 Microsoft Visual Basic for Applications 而出现的新的窗口中，将以下代码输入到空的模块中。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   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