Làm sao để xoá được các Object ẩn

[cazonda]

Các anh chị chỉ giúp em làm sao để xoá được các object ẩn, trong 1 file mà em nhận được có rất nhiều object dẫn đến việc file chạy rất chậm. Nếu dùng go to/specia/objects thì file bị đơ luôn mà tìm từng object ẩn mà xoá thì lâu quá

Cảm ơn anh chị

 

[nghiaphuc]

Các anh chị chỉ giúp em làm sao để xoá được các object ẩn, trong 1 file mà em nhận được có rất nhiều object dẫn đến việc file chạy rất chậm. Nếu dùng go to/specia/objects thì file bị đơ luôn mà tìm từng object ẩn mà xoá thì lâu quá

Cảm ơn anh chị

Bạn chọn sheet cần xóa Object ẩn, nhấn Alt+F11, tiếp tục nhấn Ctrl+G để hiện cửa số Immediate, sau đó dán vào đó câu lệnh sau và Enter xem:

Activesheet.Drawingobjects.Delete

Lưu ý là câu lệnh trên sẽ xóa tất cả các đối tượng vẽ trên Activesheet đấy nhé.

P/S: Thử cái này an toàn hơn nè: Chỉ những Object ẩn thì mới xóa, những cái nhìn thấy thì không xóa:

Sub Test()
    Dim Sh As Shape
    For Each Sh In Activesheet.Shapes
        If Sh.Visible = msoFalse Then Sh.Delete
    Next
End Sub

 

[cazonda]

Vậy để hiển thị các object này lên thì có cách nào không ah? Em nghĩ các object này do cái gì đó tạo ra chứ không phải do người dùng vẽ nên

 

[Hoàng Trọng Nghĩa]

Vậy để hiển thị các object này lên thì có cách nào không ah? Em nghĩ các object này do cái gì đó tạo ra chứ không phải do người dùng vẽ nên

Để hiển thị toàn bộ objects, bạn chỉ cần bấm Alt+F11 để mở VBA, bấm Ctrl+G để mở Immediate, chép đoạn code này:

ActiveSheet.DrawingObjects.Visible = True

vào trong Immediate rồi đặt con trỏ lên dòng đó bấm Enter.

 

[nguyenthanhtung6335]

Bạn chọn sheet cần xóa Object ẩn, nhấn Alt+F11, tiếp tục nhấn Ctrl+G để hiện cửa số Immediate, sau đó dán vào đó câu lệnh sau và Enter xem:

Activesheet.Drawingobjects.Delete

Lưu ý là câu lệnh trên sẽ xóa tất cả các đối tượng vẽ trên Activesheet đấy nhé.

P/S: Thử cái này an toàn hơn nè: Chỉ những Object ẩn thì mới xóa, những cái nhìn thấy thì không xóa:

Sub Test()
    Dim Sh As Shape
    For Each Sh In Activesheet.Shapes
        If Sh.Visible = msoFalse Then Sh.Delete
    Next
End Sub

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

 

[befaint]

7z, can thiệp trực tiếp vào cấu trúc tập tin.

 

[HeSanbi]

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

Bạn thử sử dụng mã dưới đây:

Sub DeleteShape()
    Dim Sh, k&
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each Sh In Activesheet.Shapes
       If Sh.Visible = msoFalse Then DoEvents: Sh.Delete: k = k + 1
    Next
    MsgBox "Hoan thanh " & k
End Sub

 

[cantl]

mình làm theo cách bạn chỉ là bị đơ file lun có cách nào ko vậy ? mình làm theo nhiều cách xóa là bị đơ file

Có file mẫu gửi lên để test không bạn?