Hỏi đáp VBA xóa ảnh

[beetune1991]

Kính gửi các anh chị,

em đang tạo một code xóa ảnh

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

Tuy nhiên code này nó xóa hết
em muốn code chỉ định xóa hình ảnh ở trong ô B1, B2,hay A3 gì đó ạ.

Em xin hỗ trợ ạ

 

[DarkWanderer]

Kính gửi các anh chị,

em đang tạo một code xóa ảnh

Tuy nhiên code này nó xóa hết
em muốn code chỉ định xóa hình ảnh ở trong ô B1, B2,hay A3 gì đó ạ.

Em xin hỗ trợ ạ

Thay đổi Rng theo ý muốn

Sub DeletePics()
    Dim shp As Shape
    Set ws = ActiveSheet
    Set Rng = ws.Range("A1:L500")
    Application.ScreenUpdating = FALSE
    For Each shp In ws.Shapes
        With shp
            If .Name Like "Picture*" Then
                s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
                If Not Intersect(Rng, ws.Range(s)) Is Nothing Then
                    shp.Delete
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = TRUE
End Sub

Tác giả: JoeMo

 

[beetune1991]

Thay đổi Rng theo ý muốn

Sub DeletePics()
    Dim shp As Shape
    Set ws = ActiveSheet
    Set Rng = ws.Range("A1:L500")
    Application.ScreenUpdating = FALSE
    For Each shp In ws.Shapes
        With shp
            If .Name Like "Picture*" Then
                s = .TopLeftCell.Address & ":" & .BottomRightCell.Address
                If Not Intersect(Rng, ws.Range(s)) Is Nothing Then
                    shp.Delete
                End If
            End If
        End With
    Next
    Application.ScreenUpdating = TRUE
End Sub

Tác giả: JoeMo

Cám ơn anh ạ
em làm được rồi ạ