请问我在VBA中想让一个特定的sheet内的特定范围内的图片进行删除，不是这个范围之内的不用删除

Question

请问我在VBA中想让一个特定的sheet内的特定范围内的图片进行删除，不是这个范围之内的不用删除应该用什么代码？谢谢

Answer 1

比如你要删除sheet3当中单元格A1：F30区域的所有图片，用以下代码

Sub test()
    Dim ws As Worksheet, MyShape As Shape
    For Each ws In Worksheets
        If ws.Name = "Sheet3" Then
            For Each MyShape In ws.Shapes
                If MyShape.Type = 13 And Not Application.Intersect(MyShape.TopLeftCell, ws.Range("A1:F30")) Is Nothing Then
                    MyShape.Delete
                End If
            Next
        End If
    Next
End Sub