excel图片随单元格变化而调整大小的方法？

在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图片随单元格变化而调整大小。这些方法不仅可以提高我们的工作效率，还可以让我们的表格更加美观整洁。