默认情况下，插入 Excel 工作表中的图片会被设置为“随单元格移动但不调整大小”，也就是说，即使您调整单元格的尺寸，图片的大小也不会随之改变。如果您希望图片既能随单元格一起移动，又能自动调整大小，通常需要手动为每张图片更改这一设置。不过，其实有一种更高效的方法——只需一段简单的 VBA 代码，即可一键将所有图片统一设置为“随单元格移动并调整大小”。本文将为您详细讲解具体操作步骤。

使用 VBA 代码自动将所有图片设置为“随单元格移动并调整大小”

使用 VBA 代码自动将所有图片设置为“随单元格移动并调整大小”

以下 VBA 代码可助您快速将工作表中所有图片的属性设置为“随单元格移动并调整大小”。请按以下步骤操作：

1. 打开包含要设置为随单元格移动并调整大小的图片的工作表，然后按 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请依次点击插入 > 模块，然后将 VBA 代码复制并粘贴到代码窗口中。

VBA 代码：将所有图片设置为“随单元格移动并调整大小”

Sub MoveAndSizeWithCells()
    Dim xPic As Picture
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each xPic In ActiveSheet.Pictures
        xPic.Placement = xlMoveAndSize
    Next
    Application.ScreenUpdating = True
End Sub

3. 按 F5 键或点击“运行”按钮即可执行代码。

当前工作表中的所有图片现已自动设置为“随单元格移动并调整大小”。