mình chưa xem được ảnh. Bạn kiểm tra lại phần đính kèm ảnh khi đặt câu hỏi giúp mình nhé.
Chào bạn bạn có thể đẩy file lên giúp gitiho không nhỉ?
Chào bạn bạn làm như sau nhé
Option Explicit
Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub
Chào bạn bạn thêm điều kiện là chỉ xoá pictude nhé hai hỉnh bạn bôi đó là định dạng pictude bạn nhé bạn thêm câu lệnh if pic.name = ? để xoá nhé.