Gọi Nhiều ảnh trong 1 sheet excel

[ngoquangvietvt]

Chào anh chị
topic trước em đã được
domfootwear
hướng dẩn gọi ảnh bằng vb.hiện em muốn gọi được nhiều ảnh trong 1 sheet.để topic kia không có ai ngó tới nên em mở topic mới,mong anh chi hướng dẩn giúp đở em.
Em muốn gọi nhiều ảnh nhưng em lại không biết nên đổi sự kiện vb như thế nào.
http://www.mediafire.com/?8p7uv6gddcx8jrb
mong anh chị giúp đở.

 

[Hai Lúa Miền Tây]

Chào anh chị
topic trước em đã được
domfootwear
hướng dẩn gọi ảnh bằng vb.hiện em muốn gọi được nhiều ảnh trong 1 sheet.để topic kia không có ai ngó tới nên em mở topic mới,mong anh chi hướng dẩn giúp đở em.
Em muốn gọi nhiều ảnh nhưng em lại không biết nên đổi sự kiện vb như thế nào.
http://www.mediafire.com/?8p7uv6gddcx8jrb
mong anh chị giúp đở.

Bạn dùng code sau thử nhé

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("d1,f1")) Is Nothing Then
     On Error Resume Next
          Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" & Range("D3").Value & ".jpg")
          Image2.Picture = LoadPicture(ThisWorkbook.Path & "\" & _
                "Hinh" & "\" & Range("f3").Value & ".jpg")
    End If
    
End Sub

 

[ngoquangvietvt]

em cám ơn anh nhiều lắm.
em rất vui vì được anh giúp đở tận tình.
em cám ơn.