EXL vb选择单元格B2B4的图片并删除

以下是在EXL VB中选择并删除单元格B2:B4中的图片的示例代码：

Sub DeletePictures()
    Dim ws As Worksheet
    Dim rng As Range
    Dim shp As Shape
    
    Set ws = ThisWorkbook.Sheets("Sheet1") '更改工作表名称为需要操作的工作表名称
    Set rng = ws.Range("B2:B4") '更改范围为需要操作的单元格范围
    
    For Each shp In ws.Shapes
        If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then
            shp.Delete
        End If
    Next shp
End Sub

请确保将代码中的“Sheet1”更改为要操作的工作表的名称，将“B2:B4”更改为要选择并删除图片的单元格范围。运行此宏后，将会删除指定范围内的所有图片。