如何刪除特定範圍內的所有圖片？

如果您的工作表中有多張圖片，現在您想刪除指定範圍內的某些圖片，該如何快速處理呢？

使用VBA代碼刪除特定範圍內的所有圖片

使用Kutools for Excel刪除整個工作表或工作簿中的所有圖片

使用VBA代碼刪除特定範圍內的所有圖片

這裡有一個簡單的VBA代碼可以幫助您刪除選定範圍內的圖片，而無需逐一手動刪除，請按照以下步驟操作：

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊插入 > 模組，然後在模組窗口中粘貼以下代碼。

VBA代碼：刪除選定範圍內的所有圖片：

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

注意：在上述代碼中， A5:B8是您要刪除圖片的範圍，請根據需要進行更改。

3. 然後按F5鍵運行此代碼，選定範圍內的圖片將立即被刪除，請參見截圖：

使用Kutools for Excel刪除整個工作表或工作簿中的所有圖片

如果您需要從工作表或工作簿中刪除所有圖片，Kutools for Excel的「刪除插圖與對象」功能可以為您提供幫助。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 點擊 Kutools > 刪除 > 刪除插圖與對象，請參見截圖：

2. 在「刪除插圖與對象」對話框中，勾選「圖片」，然後在 尋找範圍部分選擇您要刪除圖片的範圍，請參見截圖：

3. 然後點擊確定按鈕，所有圖片將根據您選擇的範圍從工作表或整個工作簿中刪除。