Nhờ viết code xóa Objects (1 người xem)

[vova2209]

- Trong file của em có nhiều Objects nhưng em chỉ muốn xóa 1 số Objects thôi
- Em muốn xóa Objects trong 1 vùng chỉ định! nhờ các anh giúp đỡ

 

[huuthang_bd]

- Trong file của em có nhiều Objects nhưng em chỉ muốn xóa 1 số Objects thôi
- Em muốn xóa Objects trong 1 vùng chỉ định! nhờ các anh giúp đỡ

Chuyển sang chế độ Select object rồi muốn xóa vùng nào thì kéo chuột chọn rồi xóa thôi.

 

[be_09]

- Trong file của em có nhiều Objects nhưng em chỉ muốn xóa 1 số Objects thôi
- Em muốn xóa Objects trong 1 vùng chỉ định! nhờ các anh giúp đỡ

Bạn thử dùng code sau để xóa Shapes nằm trên các Cell trong vùng này F1:L20.

Sub XoaShapesTheoVung()
Dim Vung As Shape

For Each Vung In ActiveSheet.Shapes
    If Not Intersect(Range("F1:L20"), Vung.TopLeftCell) Is Nothing Then
        Vung.Delete
    End If
Next Vung

End Sub

 

[vova2209]

Bạn thử dùng code sau để xóa Shapes nằm trên các Cell trong vùng này F1:L20.

Sub XoaShapesTheoVung()
Dim Vung As Shape

For Each Vung In ActiveSheet.Shapes
    If Not Intersect(Range("F1:L20"), Vung.TopLeftCell) Is Nothing Then
        Vung.Delete
    End If
Next Vung

End Sub

code chạy mượt đúng như nguyện vọng! em xin cảm ơn anh nhiều