Làm thế nào để xóa tất cả các hình ảnh trong một phạm vi ô?
Nếu có nhiều hình ảnh được nhập vào trang tính của bạn, bây giờ, bạn muốn xóa một số hình ảnh trong số đó trong một phạm vi xác định, bạn phải giải quyết nhanh như thế nào?
Xóa tất cả ảnh trong một phạm vi ô cụ thể bằng mã VBA
Xóa tất cả ảnh trong trang tính hoặc toàn bộ sổ làm việc với Kutools cho Excel
Xóa tất cả ảnh trong một phạm vi ô cụ thể bằng mã VBA
Đây là một mã VBA đơn giản có thể giúp bạn xóa các hình ảnh trong phạm vi đã chọn mà không xóa từng ảnh một, vui lòng thực hiện như sau:
1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. Nhấp chuột Chèn > mô-đun, và dán mã sau vào Mô-đun Cửa sổ.
Mã VBA: xóa tất cả ảnh trong một phạm vi ô đã chọn:
Sub DeletePic()
Dim xPicRg As Range
Dim xPic As Picture
Dim xRg As Range
Application.ScreenUpdating = False
Set xRg = Range("A5:B8")
For Each xPic In ActiveSheet.Pictures
Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
Next
Application.ScreenUpdating = True
End Sub
Chú thích: Trong đoạn mã trên, A5: B8 là phạm vi mà bạn muốn xóa ảnh, vui lòng thay đổi nó theo nhu cầu của bạn.
3. Sau đó nhấn F5 để chạy mã này và các ảnh trong phạm vi đã chọn đã bị xóa ngay lập tức, xem ảnh chụp màn hình:
Xóa tất cả ảnh trong trang tính hoặc toàn bộ sổ làm việc với Kutools cho Excel
Nếu bạn cần xóa tất cả hình ảnh khỏi trang tính hoặc sổ làm việc, Kutools cho Excel 's Xóa Hình minh họa & Đối tượng tiện ích có thể giúp bạn một việc.
Kutools cho Excel : với hơn 300 bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 30 ngày. |
Sau khi cài đặt Kutools cho Excel, vui lòng làm như sau:
1. Nhấp chuột Kutools > Xóa bỏ > Xóa Hình minh họa & Đối tượng, xem ảnh chụp màn hình:
2. Trong Xóa Hình minh họa & Đối tượng hộp thoại, kiểm tra Những bức ảnh từ Xóa bỏ và sau đó chọn phạm vi mà bạn muốn xóa ảnh trong nhìn vào , xem ảnh chụp màn hình:
3. Sau đó nhấn vào Ok và tất cả ảnh sẽ bị xóa khỏi trang tính hoặc toàn bộ sổ làm việc như bạn đã chọn.
Nhấp để Tải xuống Kutools cho Excel và dùng thử miễn phí ngay!
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!