vấn đề xóa các object (1 người xem)

[crazyboy_t2]

mình có 1 file excel dung lượng tầm 9mb, nhưng bên trong chỉ có 4 sheet mỗi sheet có tầm 50 row 10 columm thôi :-s mà dung lượng lên đến 9mb
sau khi tìm hiểu trên forum thì tìm ra đc nguyên nhân là quá nhiều object. Mình đã ctrl G -> object nhưng quá trình cho hiện object lên mất hơn 30' :-s hiện lên 1 đống xóa từng cái 1 ko xuể

Có cách nào xóa all ko, chứ xóa lần lượt lâu lắm các bác chỉ em với

 

[nmhung49]

Bạn chép đoạn code này vào module rồi chạy hen

Sub xoa()
Dim sh As Worksheet
For Each sh In Worksheets
sh.DrawingObjects.Delete
Next
End Sub

 

[ndu96081631]

mình có 1 file excel dung lượng tầm 9mb, nhưng bên trong chỉ có 4 sheet mỗi sheet có tầm 50 row 10 columm thôi :-s mà dung lượng lên đến 9mb
sau khi tìm hiểu trên forum thì tìm ra đc nguyên nhân là quá nhiều object. Mình đã ctrl G -> object nhưng quá trình cho hiện object lên mất hơn 30' :-s hiện lên 1 đống xóa từng cái 1 ko xuể

Có cách nào xóa all ko, chứ xóa lần lượt lâu lắm các bác chỉ em với

Bạn dùng Ctrl + G là đúng rồi, cứ thế mà Delete thôi
- Ctrl + G\Special\Objects rồi bấm nút OK
- Xong, bấm nút Delete trên bàn phím (không được nhấp chuột vào bất cứ cell nào)