Muốn cho xoá tất cả các hình có trong một sheet?

[vsk]

Em gà muốn nhờ giúp đỡ về việc dùng macro để cho xoá tất cả các hình có trong sheet file excel. Vì hình chèn trong sheet nhiều mà chọn thì lâu nó không nằm gọn trong một chỗ.. ai đó giúp em cám ơn nhiều lắm...Em gà lắm chỉ biết cho xoá hình đã có sẵn tên nhưng mỗi lần chèn hình khác rồi xoá lại không được nữa.

 

[MinhCong]

Em gà muốn nhờ giúp đỡ về việc dùng macro để cho xoá tất cả các hình có trong sheet file excel. Vì hình chèn trong sheet nhiều mà chọn thì lâu nó không nằm gọn trong một chỗ.. ai đó giúp em cám ơn nhiều lắm...Em gà lắm chỉ biết cho xoá hình đã có sẵn tên nhưng mỗi lần chèn hình khác rồi xoá lại không được nữa.

Bạn bấm Ctrl+A -> Ctrl+G -> Special -> Chọn objects -> OK -> Delete

 

[Hai Lúa Miền Tây]

Bạn bấm Ctrl+A -> Ctrl+G -> Special -> Chọn objects -> OK -> Delete

Cách này nó sẽ xóa tất tần tật các Objects có trong sheet, nếu xóa chỉ là hình thì phải dùng VBA thôi.

 

[vsk]

Bạn bấm Ctrl+A -> Ctrl+G -> Special -> Chọn objects -> OK -> Delete

Cám ơn nhé.. Từ cái này em cũng giúp em ngẫm được ra code xóa hình...

 

[Hai Lúa Miền Tây]

Cám ơn nhé.. Từ cái này em cũng giúp em ngẫm được ra code xóa hình...

Đây là code xóa tất cả hình có trong tất cả các sheet.

Sub XoaHinh()
Dim sh As Worksheet
   For Each sh In ThisWorkbook.Worksheets
     sh.Pictures.Delete
   Next

End Sub

 

[vsk]

Cái này cũng hay... cám ơn mọi người.