如何在 Excel 中自动将所有图片更改为“随单元格移动并调整大小”？

默认情况下，插入到 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 键或点击运行按钮以运行代码。

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

相关文章：

• 如何在 Excel 单元格中居中显示图片？
• 如何检查 Excel 单元格中是否包含图片？
• 如何根据单元格值动态地在单元格中插入图片或图像？
• 如何在 Excel 中单击图片时放大图片？