在Excel中，我们经常需要插入图片来展示数据或者作为辅助说明。但是当我们在表格中进行行或列的插入或删除时，图片的大小和位置并不会随之改变，这就会导致表格的排版混乱，给我们带来不便。因此，本文将从多个角度为大家介绍Excel图片随单元格变化而调整大小的方法。
方法一、使用宏实现图片自适应
首先，我们可以使用宏来实现图片的自适应。具体操作步骤如下：
1.按下ALT+F11，打开Visual Basic Editor。
2.选择Insert，然后选择Module。
3.在Module中输入以下代码：
Sub AutoFitAllPictures()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
With shp
.LockAspectRatio = msoFalse
.Height = .Height / .LockAspectRatio
.Width = .Width / .LockAspectRatio
.LockAspectRatio = msoTrue
End With
Next shp
End Sub
4.按下F5运行宏，所有的图片将自动适应单元格大小。
方法二、使用公式实现图片自适应
其次，我们还可以使用公式来实现图片的自适应。具体操作步骤如下：
1.在需要插入图片的单元格中，输入公式=IMAGEMANAGER()。
2.插入图片后，将单元格的行或列进行插入或删除，图片会自动适应单元格大小。
方法三、使用VBA代码实现图片自适应
最后，我们还可以使用VBA代码来实现图片的自适应。具体操作步骤如下：
1.按下ALT+F11，打开Visual Basic Editor。
2.选择Insert，然后选择Module。
3.在Module中输入以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
With shp
If .TopLeftCell.Row <= Target.Row And _
.BottomRightCell.Row >= Target.Row And _
.TopLeftCell.Column <= Target.Column And _
.BottomRightCell.Column >= Target.Column Then
.LockAspectRatio = msoFalse
.Height = .Height / .LockAspectRatio
.Width = .Width / .LockAspectRatio
.LockAspectRatio = msoTrue
End If
End With
Next shp
End Sub
4.保存文件，关闭Visual Basic Editor，然后插入图片。
5.当我们对单元格进行插入或删除时，图片会自动适应单元格大小。
综上所述，我们可以使用宏、公式或者VBA代码来实现Excel图片随单元格变化而调整大小。这些方法不仅可以提高我们的工作效率，还可以让我们的表格更加美观整洁。
