Excel VBA 删除指定范围内的图片 - 代码示例

"EXL vb选择单元格B2:B4的图片并删除内容：以下是在EXL VB中选择并删除单元格B2:B4中的图片的示例代码：\n\n\nSub DeletePictures()\n Dim ws As Worksheet\n Dim rng As Range\n Dim shp As Shape\n \n Set ws = ThisWorkbook.Sheets(\"Sheet1\") '更改工作表名称为需要操作的工作表名称\n Set rng = ws.Range(\"B2:B4\") '更改范围为需要操作的单元格范围\n \n For Each shp In ws.Shapes\n If Not Intersect(shp.TopLeftCell, rng) Is Nothing Then\n shp.Delete\n End If\n Next shp\nEnd Sub\n\n\n请确保将代码中的"Sheet1"更改为要操作的工作表的名称，将"B2:B4"更改为要选择并删除图片的单元格范围。运行此宏后，将会删除指定范围内的所有图片。\n