Chèn ảnh tự động excel

[TuanPV2803]

Kính gửi đến các tiền bối!

Kính mong các anh chị giúp đỡ em với!
Em có 1 folder ảnh gồm rất nhiều ảnh. Em muốn lấy tên tự động các ảnh này và chèn vào trong một file excel Data, sau đó xuất qua sheet tính tiền theo tên khách hàng.
em đã cop nhặt một số code trên diễn đà và đưa vào nhưng hiện tại có một số lỗi. cụ thể em có viết trên file đính kèm!
Nhờ các anh chị trên diễn đàn giúp đỡ.
Nếu được mong các anh chị có thể giải thích về Code của các anh chị để em có thể hiểu và học hỏi!

Cảm ơn các anh chị em đã đọc bài và giúp đỡ!

 

[batman1]

1. Sheet LAY MA không cần thiết. Cột DATA!B:C không cần thiết. Khi nhập Mã vào 'Truy xuat'!B thì nhập ảnh từ đĩa vào thôi.

2. Có 2 cách nhập ảnh:
- chỉ link thôi. Với cách này sau đó nếu xóa ảnh trên đĩa thì sẽ mất ảnh trong 'Truy xuat'!B. Thậm chí không xóa ảnh mà chỉ chuyển thư mục có ảnh sang chỗ khác thì cũng mất ảnh. Khi mang sang máy khác thì cũng mất ảnh. Khi đó lại phải nhập ảnh lại.

- nhập ảnh vĩnh viễn vào sheet "truy xuat". Lúc này sau khi nhập ảnh thì có thể xóa ảnh trên đĩa, khi mang sang máy khác không cần mang ảnh theo.

Vậy bạn chọn cách nào?

 

[TuanPV2803]

1. Sheet LAY MA không cần thiết. Cột DATA!B:C không cần thiết. Khi nhập Mã vào 'Truy xuat'!B thì nhập ảnh từ đĩa vào thôi.

2. Có 2 cách nhập ảnh:
- chỉ link thôi. Với cách này sau đó nếu xóa ảnh trên đĩa thì sẽ mất ảnh trong 'Truy xuat'!B. Thậm chí không xóa ảnh mà chỉ chuyển thư mục có ảnh sang chỗ khác thì cũng mất ảnh. Khi mang sang máy khác thì cũng mất ảnh. Khi đó lại phải nhập ảnh lại.

- nhập ảnh vĩnh viễn vào sheet "truy xuat". Lúc này sau khi nhập ảnh thì có thể xóa ảnh trên đĩa, khi mang sang máy khác không cần mang ảnh theo.

Vậy bạn chọn cách nào?

Cảm ơn anh đã quan tâm giúp đỡ em!
Thực sự em mới tập tành Excel nên đang rất muốn học hỏi mở rộng kiến thức!
Em nghĩ nếu mình chỉ chen link thì file sẽ nhẹ hơn mở và thao tác sẽ nhanh hơn nhưng nhược điểm thì như anh đã nói. vì vậy nếu có thể em mong anh giúp đỡ viết code cho cả 2 trường hợp để em được học hỏi thêm phòng cả 2 trường hợp dùng cục bộ và chia sẻ. Em cảm ơn anh nhiều!
Chúc anh sức khoẻ!

 

[batman1]

Em nghĩ nếu mình chỉ chen link thì file sẽ nhẹ hơn mở và thao tác sẽ nhanh hơn nhưng nhược điểm thì như anh đã nói. vì vậy nếu có thể em mong anh giúp đỡ viết code cho cả 2 trường hợp để em được học hỏi thêm phòng cả 2 trường hợp dùng cục bộ và chia sẻ.

1. Trong tập tin tôi nhập ảnh vĩnh viễn, tức

InsertPicture ThisWorkbook.Path & "\Anh\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, False

Nếu chỉ muốn link thì đổi tham số cuối cùng sang True, tức thành

InsertPicture ThisWorkbook.Path & "\Anh\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, True

2. Đọc hướng dẫn tôi ghi trong sheet DATA.

 

[TuanPV2803]

1. Trong tập tin tôi nhập ảnh vĩnh viễn, tức

InsertPicture ThisWorkbook.Path & "\Anh\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, False

Nếu chỉ muốn link thì đổi tham số cuối cùng sang True, tức thành

InsertPicture ThisWorkbook.Path & "\Anh\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, True

2. Đọc hướng dẫn tôi ghi trong sheet DATA.

Anh ơi nhờ anh kiểm tra lại không hiểu sao file này không chạy trên máy em.
em dùng office 2016!
Em cảm ơn sự quan tâm giúp đỡ từ anh nhiều!

 

[batman1]

Anh ơi nhờ anh kiểm tra lại không hiểu sao file này không chạy trên máy em.
em dùng office 2016!
Em cảm ơn sự quan tâm giúp đỡ từ anh nhiều!

Tôi viết kỹ nhưng bạn không làm đúng.

Tôi viết

6. Hiện thời code mặc định là ảnh sẽ có ở thư mục có tên là Anh, và thư mục Anh cùng với tập tin Excel ở cùng một thư mục, vd. cùng ở thư mục MyFiles. Hiện thời ảnh được nhập vĩnh viễn vào tập tin.

Bạn lại đặt tập tin Excel trong thư mục Anh.

Nếu tập tin Excel đặt như bây giờ thì sửa code thành

InsertPicture ThisWorkbook.Path & "\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, False

 

[TuanPV2803]

Tôi viết kỹ nhưng bạn không làm đúng.

Tôi viết


Bạn lại đặt tập tin Excel trong thư mục Anh.

Nếu tập tin Excel đặt như bây giờ thì sửa code thành

InsertPicture ThisWorkbook.Path & "\" & cell_.Value & ".jpg", cell_.Offset(, 1), False, False, False

Cảm ơn anh đã nhiệt tình giúp đỡ! em làm đc rồi anh!