Làm thế nào để kiểm tra xem một ô có chứa ảnh trong Excel hay không?
Dễ dàng tìm và chọn tất cả ảnh trong một trang tính đang hoạt động trong Excel. Nhưng bạn có biết cách kiểm tra xem một ô có chứa ảnh trong Excel hay không? Một phương pháp trong bài viết này có thể giúp bạn.
Kiểm tra xem ô có chứa hình ảnh với mã VBA không
Kiểm tra xem ô có chứa hình ảnh với mã VBA không
Mã VBA dưới đây có thể giúp bạn kiểm tra xem ô có chứa ảnh hay không. Hãy làm như sau.
1. Mở trang tính bạn cần để kiểm tra xem ảnh có tồn tại trong một ô đã chỉ định hay không, sau đó nhấn Khác + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.
2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Sau đó sao chép và dán mã VBA vào cửa sổ Mã.
Mã VBA: Kiểm tra xem một ô có chứa ảnh trong Excel hay không
Sub CellHasPicture()
Dim xRg As Range
Dim xShape As Shape
Dim xFlag As Boolean
On Error Resume Next
Set xRg = Application.InputBox("Please enter the cell address:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
xFlag = False
For Each xShape In ActiveSheet.Shapes
If xShape.TopLeftCell.Address = xRg.Address Then
xFlag = True
End If
Next
If xFlag Then
MsgBox "Image exists!"
Else
MsgBox "Image does not exist"
End If
End Sub3. Nhấn nút F5 phím để chạy mã. Trong cửa sổ bật lên Kutools cho Excel hộp thoại, vui lòng nhập ô mà bạn muốn kiểm tra xem nó có chứa ảnh không, rồi bấm vào OK cái nút. Xem ảnh chụp màn hình:
4. Sau đó, một hộp thoại sẽ bật lên như ảnh chụp màn hình dưới đây được hiển thị nếu hình ảnh tồn tại hoặc không trong ô được chỉ định.
Bài viết liên quan:
- Làm cách nào để tự động thay đổi tất cả ảnh để di chuyển và kích thước với các ô trong Excel?
- Làm thế nào để căn giữa một hình ảnh trong một ô Excel?
- Làm thế nào để chèn hình ảnh hoặc hình ảnh động trong ô dựa trên giá trị ô trong Excel?
- Làm thế nào để phóng to hình ảnh khi nhấp vào nó trong Excel?
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!
