Macro copy ảnh vào vị trí cố định.

[Ông Nam]

Chào các bạn.
Rất mong các bạn giúp đỡ cho vấn đề sau:
Tôi muốn lập macro để khi đánh Mã số nhân viên vào 1 ô trong sheet thì tự động copy ảnh của nhân viên đó (trong một sheet khác hoặc trong file khác) vào vị trí xác định trên cùng sheet đó thì làm thế nào?

 

[dat2007]

'Tao san mot thu muc Anhnhanvien trong o D, anh nhan vien luu duoi dinh dang .JPG
'Ten NV trung voi ma nhan vien nhap trong bang tinh
'Format kich co cua cac o chua anh cho vua y
'Khong can Resize lai anh cua nhan vien trong thu muc goc
'Kich thuoc cua anh se tu dong lay theo kich thuoc cua o trong bang tinh
'Tai o chua ma nhan vien chay Macro sau

Sub GPE_1()
On Error GoTo errHd
Dim xlsPic As String
    ActiveSheet.ActiveCell.Select
    MaNv = ActiveCell.Value
    xlsPic = "D:\AnhNhanvien" & "\" & MaNv & ".jpg"
    ActiveCell.Offset(0, 1).Select
    Set Pic = ActiveSheet.Pictures.Insert(xlsPic)
    If Not Pic Is Nothing Then
        Set rng = ActiveCell
        With Pic
            .Height = rng.Height
            .Width = rng.Width
            .Left = rng.Left
            .Top = rng.Top
        End With
    End If
    With Application
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    Set Pic = Nothing
    Set rng = Nothing
Exit Sub
errHd:
    Resume Next
End Sub

 

[ndu96081631]

Chào các bạn.
Rất mong các bạn giúp đỡ cho vấn đề sau:
Tôi muốn lập macro để khi đánh Mã số nhân viên vào 1 ô trong sheet thì tự động copy ảnh của nhân viên đó (trong một sheet khác hoặc trong file khác) vào vị trí xác định trên cùng sheet đó thì làm thế nào?

Tôi nghĩ cái bạn cần tìm là cái này:
http://www.giaiphapexcel.com/forum/showthread.php?t=2734&page=3
Down file tại bài số #29, code cực dể