[Help] VBA dò tìm hình ảnh

tieugia35 · 9/4/22

Em chào các bác, hiện em có mò mầm làm cái hàm dò tìm ảnh trong excel để dễ in ấn, nhưng có điều là khi dò ra được thì ảnh ko fit được khung in và nếu em kéo ảnh ra thì nó rất mờ ko rõ nét như ảnh ở sheet DATA (file đính kèm). Các bác cao thủ trong đây cho em xin giải pháp xử lý, nếu xử lý được bằng VBA thì càng tốt ạ.

batman1 · 10/4/22

tieugia35 đã viết:
Em chào các bác, hiện em có mò mầm làm cái hàm dò tìm ảnh trong excel để dễ in ấn, nhưng có điều là khi dò ra được thì ảnh ko fit được khung in và nếu em kéo ảnh ra thì nó rất mờ ko rõ nét như ảnh ở sheet DATA (file đính kèm). Các bác cao thủ trong đây cho em xin giải pháp xử lý, nếu xử lý được bằng VBA thì càng tốt ạ.

Ai mà biết được có mờ hay không, và làm sao biết được ảnh ở sheet Data có nét hay không, khi mà trong tập tin bạn chưa chèn bất cứ ảnh nào trong sheet DATA.

Trong Sub Worksheet_Change của sheet DATA có code để chèn ảnh vào sheet DATA khi nhập MÃ HA vào cột B. Nếu bạn đồng ý thì tôi sẽ thay toàn bộ code chèn ảnh cũ bằng code mới. Và trên cơ sở đó tôi thêm code copy ảnh từ DATA sang FORM mỗi khi bạn nhấn SpinButton1 trên FORM.

tieugia35 · 11/4/22

batman1 đã viết:
Ai mà biết được có mờ hay không, và làm sao biết được ảnh ở sheet Data có nét hay không, khi mà trong tập tin bạn chưa chèn bất cứ ảnh nào trong sheet DATA.

Trong Sub Worksheet_Change của sheet DATA có code để chèn ảnh vào sheet DATA khi nhập MÃ HA vào cột B. Nếu bạn đồng ý thì tôi sẽ thay toàn bộ code chèn ảnh cũ bằng code mới. Và trên cơ sở đó tôi thêm code copy ảnh từ DATA sang FORM mỗi khi bạn nhấn SpinButton1 trên FORM.

Úi trời, em bất cẩn quá. File em tải lên đã quên save lại hình ảnh, nhưng anh nói đúng thứ em cần.
Nhờ anh thay lại dòng code ấy ạ.

Hoàng Tuấn 868 · 11/4/22

Lỗi tiêu đề . . .

tieugia35 · 11/4/22

Hoàng Tuấn 868 đã viết:
Lỗi tiêu đề . . .

làm sao để sửa tiêu đề anh, em không edit được

Hoàng Tuấn 868 · 11/4/22

tieugia35 đã viết:
làm sao để sửa tiêu đề anh, em không edit được

Bạn nhờ Ban điều hành Diễn đàn xem.

batman1 · 11/4/22

tieugia35 đã viết:
Úi trời, em bất cẩn quá. File em tải lên đã quên save lại hình ảnh, n

Bạn đính kèm ảnh như thế cũng bằng không. Code chèn ảnh của bạn chọn cách link image nên mang tập tin đi đâu cũng phải gửi ảnh đi kèm vì ảnh không được chèn vào tập tin vĩnh viễn. Bạn có thể làm như sau để mục sở thị và ghi nhớ muôn đời. Bạn hãy xóa hết ảnh hoặc đổi tên thư mục ảnh sau đó mở tập tin Excel thì sẽ bị bất ngờ.
Tôi chèn ảnh cho bạn kiểu vĩnh viễn. Tập tin sẽ nặng hơn nhưng mang đi chỗ khác thì không phải mang ảnh đi kèm.

Tôi thay toàn bộ code trong Private Sub Worksheet_Change để chèn ảnh

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Or Target.Row = 1 Or Target.Column <> 2 Then Exit Sub
    InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True
'    InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True, True
End Sub

Nhìn ở trên bạn thấy 2 dòng InsertPicture mà trong đó dòng thứ 2 đang bị là chú thích. Dòng 1 là chèn ảnh vĩnh viễn còn dòng 2 là chèn link mà thôi. Lựa chọn dòng 1 hay 2 thuộc về bạn.

Trong sheet FORM tôi thêm code

Mã:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$15" Then showPicture "Data", "FORM", "A1", "A", Target.Value, "C"   ' goi showPicture de copy anh tu DATA sang FORM
End Sub

Mục đích để mỗi khi có sự thay đổi ở I15 thì code sẽ gọi sub showPicture để: hủy ảnh cũ trong khung A1:G27 -> sao chép ảnh mới tương ứng sang sheet FORM -> phóng to / thu nhỏ ảnh để center ảnh trong khung. Center để ảnh vừa khít khung đồng thời zoom 2 chiều như nhau thì ảnh mới không bị biến dạng. Nếu làm vừa khít khung thì nhiều khi một chiều sẽ bị zoom khác chiều kia và ảnh bị méo.

Code tổng quát để chèn ảnh là InsertPicture. Trong tương lai trong bất cứ tập tin nào cần chèn ảnh thì thêm code của InsertPicture vào rồi chèn ảnh như trong code Worksheet_Change ở trên. Cả InsertPicture và showPicture nằm ở Module1. Hãy đọc chú thích mà tôi viết rất cặn kẽ để biết cách dùng 2 sub.

tieugia35 · 11/4/22

batman1 đã viết:
Bạn đính kèm ảnh như thế cũng bằng không. Code chèn ảnh của bạn chọn cách link image nên mang tập tin đi đâu cũng phải gửi ảnh đi kèm vì ảnh không được chèn vào tập tin vĩnh viễn. Bạn có thể làm như sau để mục sở thị và ghi nhớ muôn đời. Bạn hãy xóa hết ảnh hoặc đổi tên thư mục ảnh sau đó mở tập tin Excel thì sẽ bị bất ngờ.
Tôi chèn ảnh cho bạn kiểu vĩnh viễn. Tập tin sẽ nặng hơn nhưng mang đi chỗ khác thì không phải mang ảnh đi kèm.

Tôi thay toàn bộ code trong Private Sub Worksheet_Change để chèn ảnh

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Row = 1 Or Target.Column <> 2 Then Exit Sub InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True ' InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True, True End Sub

Nhìn ở trên bạn thấy 2 dòng InsertPicture mà trong đó dòng thứ 2 đang bị là chú thích. Dòng 1 là chèn ảnh vĩnh viễn còn dòng 2 là chèn link mà thôi. Lựa chọn dòng 1 hay 2 thuộc về bạn.

Trong sheet FORM tôi thêm code

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$15" Then showPicture "Data", "FORM", "A1", "A", Target.Value, "C" ' goi showPicture de copy anh tu DATA sang FORM End Sub

Mục đích để mỗi khi có sự thay đổi ở I15 thì code sẽ gọi sub showPicture để: hủy ảnh cũ trong khung A1:G27 -> sao chép ảnh mới tương ứng sang sheet FORM -> phóng to / thu nhỏ ảnh để center ảnh trong khung. Center để ảnh vừa khít khung đồng thời zoom 2 chiều như nhau thì ảnh mới không bị biến dạng. Nếu làm vừa khít khung thì nhiều khi một chiều sẽ bị zoom khác chiều kia và ảnh bị méo.

Code tổng quát để chèn ảnh là InsertPicture. Trong tương lai trong bất cứ tập tin nào cần chèn ảnh thì thêm code của InsertPicture vào rồi chèn ảnh như trong code Worksheet_Change ở trên. Cả InsertPicture và showPicture nằm ở Module1. Hãy đọc chú thích mà tôi viết rất cặn kẽ để biết cách dùng 2 sub.

Em cảm ơn anh nhiều, anh viết code rất chi tiết ạ.

tieugia35 · 11/4/22

batman1 đã viết:
Bạn đính kèm ảnh như thế cũng bằng không. Code chèn ảnh của bạn chọn cách link image nên mang tập tin đi đâu cũng phải gửi ảnh đi kèm vì ảnh không được chèn vào tập tin vĩnh viễn. Bạn có thể làm như sau để mục sở thị và ghi nhớ muôn đời. Bạn hãy xóa hết ảnh hoặc đổi tên thư mục ảnh sau đó mở tập tin Excel thì sẽ bị bất ngờ.
Tôi chèn ảnh cho bạn kiểu vĩnh viễn. Tập tin sẽ nặng hơn nhưng mang đi chỗ khác thì không phải mang ảnh đi kèm.

Tôi thay toàn bộ code trong Private Sub Worksheet_Change để chèn ảnh

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Or Target.Row = 1 Or Target.Column <> 2 Then Exit Sub InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True ' InsertPicture ThisWorkbook.path & "\" & Target.Value & ".jpg", Target.Offset(, 1), , True, True End Sub

Nhìn ở trên bạn thấy 2 dòng InsertPicture mà trong đó dòng thứ 2 đang bị là chú thích. Dòng 1 là chèn ảnh vĩnh viễn còn dòng 2 là chèn link mà thôi. Lựa chọn dòng 1 hay 2 thuộc về bạn.

Trong sheet FORM tôi thêm code

Mã:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$I$15" Then showPicture "Data", "FORM", "A1", "A", Target.Value, "C" ' goi showPicture de copy anh tu DATA sang FORM End Sub

Mục đích để mỗi khi có sự thay đổi ở I15 thì code sẽ gọi sub showPicture để: hủy ảnh cũ trong khung A1:G27 -> sao chép ảnh mới tương ứng sang sheet FORM -> phóng to / thu nhỏ ảnh để center ảnh trong khung. Center để ảnh vừa khít khung đồng thời zoom 2 chiều như nhau thì ảnh mới không bị biến dạng. Nếu làm vừa khít khung thì nhiều khi một chiều sẽ bị zoom khác chiều kia và ảnh bị méo.

Code tổng quát để chèn ảnh là InsertPicture. Trong tương lai trong bất cứ tập tin nào cần chèn ảnh thì thêm code của InsertPicture vào rồi chèn ảnh như trong code Worksheet_Change ở trên. Cả InsertPicture và showPicture nằm ở Module1. Hãy đọc chú thích mà tôi viết rất cặn kẽ để biết cách dùng 2 sub.

Em phát hiện ra 1 lỗi là khi số ảnh bên sheet DATA quá nhiều tầm khoảng 20-30 ảnh thì khi sử dụng ở nút lên xuống bên sheet FORM lâu lâu sẽ có vài trang bị mất ảnh. Em đã thử kéo nhỏ ô chứa ảnh ở mục data và form nhưng ko giải quyết được lỗi này.

batman1 · 11/4/22

tieugia35 đã viết:
Em phát hiện ra 1 lỗi là khi số ảnh bên sheet DATA quá nhiều tầm khoảng 20-30 ảnh thì khi sử dụng ở nút lên xuống bên sheet FORM lâu lâu sẽ có vài trang bị mất ảnh. Em đã thử kéo nhỏ ô chứa ảnh ở mục data và form nhưng ko giải quyết được lỗi này.

Tôi không hiểu bạn nói tới cái gì.

tieugia35 · 18/4/22

batman1 đã viết:
Tôi không hiểu bạn nói tới cái gì.

Mấy ngày nay bận quá nên không có thời gian lên diễn đàn để rep tin nhắn anh.

Cái này e tìm ra nguyên nhân và đã khắc phục được rồi a, nếu in độc lập ở 1 sheet FORM thì ko vấn đề gì. Nguyên nhân ở cái nút Spinbutton, em thường in gọp chung nhiều sheet lại, và hay link các sheet về 1 sheet gốc bằng công thức của excel thôi, nhưng lệnh công thức excel khi chạy sẽ chậm hơn 1 nhịp của lệnh VBA nên khi in ra lệnh thì ảnh của trang sau thì lại thành của trang trước. Em khắc phục bằng cách viết link ô thay đổi trang lên VBA trực tiếp luôn.

[Help] VBA dò tìm hình ảnh

tieugia35

Thành viên mới

File đính kèm

batman1

Thành viên gạo cội

tieugia35

Thành viên mới

File đính kèm

Hoàng Tuấn 868

Đăng ký hôm qua

tieugia35

Thành viên mới

Hoàng Tuấn 868

Đăng ký hôm qua

batman1

Thành viên gạo cội

File đính kèm

tieugia35

Thành viên mới

tieugia35

Thành viên mới

batman1

Thành viên gạo cội

tieugia35

Thành viên mới

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng