Nhờ các a c giúp chèn ảnh vào 1 ô trong excell (1 người xem)

[danght]

mình có file đính kèm, nhờ các bạn giúp mình khi gõ số CMND ở ô B2 thì hình ảnh tương ứng của CMND đó trong thư mục HINH hiện lên ở ô chứa hình,xin cám ơn!

 

[hoamattroicoi]

mình có file đính kèm, nhờ các bạn giúp mình khi gõ số CMND ở ô B2 thì hình ảnh tương ứng của CMND đó trong thư mục HINH hiện lên ở ô chứa hình,xin cám ơn!

Tôi chưa xem file, chỉ đọc nội dung bạn hỏi, bạn thử tham khảo link này nhé
Cách gán ảnh ô trong Excel

 

[Quang_Hải]

Dạng bài này mình viết mấy lần rồi, bạn tìm những bài mình viết và áp dụng nghen. Nếu cần điều chỉnh gì thì mình tính tiếp.

http://www.giaiphapexcel.com/forum/showthread.php?66235-Liên-kết-hình-ảnh-đến-ô

 

[Quang_Hải]

Mình đoán là trước sau cũng phải viết thì thôi giờ viết luôn cho rồi

 

[danght]

Cám ơn bạn nhiều,

quanghai1969
cho mình hỏi các thay đổi hình ảnh đến 1 chỗ khác thì phải làm sao vậy,
Và file của mình có 1 logo của cty khi chạy thị logo của mình cũng bị xóa luôn.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = 3
Application.ScreenUpdating = False
Dim r, n
Dim Pic As String
On Error Resume Next
If Target.Address = [b2].Address Then
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
Pic = [b2].Value & ".jpg"
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Pic)
.Left = [e2].Left: .Top = [e2].Top
.Width = [e2].Width: .Height = [e2:e6].Height
End With
End If
Application.ScreenUpdating = True
Application.Calculation = 1
End Sub
xin ban giup đỡ thay đổi code trên ở chỗ nào để mình điều chỉnh.
cám ơn bạn rất nhiều!!!!!!!

 

[Quang_Hải]

Cám ơn bạn nhiều,

quanghai1969
cho mình hỏi các thay đổi hình ảnh đến 1 chỗ khác thì phải làm sao vậy,
Và file của mình có 1 logo của cty khi chạy thị logo của mình cũng bị xóa luôn.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Calculation = 3
Application.ScreenUpdating = False
Dim r, n
Dim Pic As String
On Error Resume Next
If Target.Address = [b2].Address Then
For Each sh In ActiveSheet.Shapes
sh.Delete
Next
Pic = [b2].Value & ".jpg"
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Pic)
.Left = [e2].Left: .Top = [e2].Top
.Width = [e2].Width: .Height = [e2:e6].Height
End With
End If
Application.ScreenUpdating = True
Application.Calculation = 1
End Sub
xin ban giup đỡ thay đổi code trên ở chỗ nào để mình điều chỉnh.
cám ơn bạn rất nhiều!!!!!!!

1. 3 dòng chữ màu đỏ là thủ phạm xoá logo của công ty ban đấy, nếu cần thì xoá bỏ đi là ok.
2. Sao bạn không vận động, bạn thấy hình xuất hiện tại E2, thì đọc code thấy có E2 thì thay đổi 1 ô nào khác xem thế nào, sao lại không thử chứ. Mình cũng học theo cách thử như vậy đó chứ có hiểu gì nhiều đâu.

 

[danght]

cho mình hỏi, nếu file excell và thư mục chứa hình đặt ở 2 thư mục khác nhau thì sửa code trên như thế nào vậy:
vd
file excell ở C:\thongtinkhachhang.xls
file ảnh nằm ở D:\Hinh
cám ơn bạn nhiều!

 

[Quang_Hải]

Tìm dòng code
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Pic
Sửa lại thành
With ActiveSheet.Pictures.Insert( "D:\HINH\" & Pic)

 

[danght]

mình đã sửa lại nhưng vẫn không được, bạn xem giúp mình với! thank!

 

[thanchetvnt]

quanghai1969 cho mình hỏi thêm rằng mình muốn tạo nút browse cho người sử dụng được quyền lựa chọn một ảnh bất kỳ trên máy tính hoặc trên máy tính khác trong mạng LAN thì phải làm như thế nào? Việc này mình cố mày mò mãi mà vẫn không được.

 

[Quang_Hải]

mình đã sửa lại nhưng vẫn không được, bạn xem giúp mình với! thank!

Code thi đúng rồi đấy, còn không được thì có biết bị gì đâu mà giúp xem lại

 

[Quang_Hải]

quanghai1969 cho mình hỏi thêm rằng mình muốn tạo nút browse cho người sử dụng được quyền lựa chọn một ảnh bất kỳ trên máy tính hoặc trên máy tính khác trong mạng LAN thì phải làm như thế nào? Việc này mình cố mày mò mãi mà vẫn không được.

Thật ra yêu cầu của bạn không khó, nhưng không có file thì chịu thua thôi

 

[danght]

mình làm dc rồi , cám ơn bạn rất nhiều!