Chèn hình khi thỏa điều kiện (Trong cùng sheet)

[M@trixs]

Em muốn tạo 1 file Excel trong đó có 3 tấm hình (nằm trong file luôn chứ không phải tạo thêm 1 Folder rồi chứa hình trong đó). Tiếp theo là em muốn khi mình đánh số 1 tại ô A1 thì ở ô B2 sẻ hiện ra tấm hình tên 1
A1 | B2
1 | Hình với tên tương ứng sẽ được chèn vào ngay đây !
2 | Hình với tên tương ứng sẽ được chèn vào ngay đây !
3 | Hình với tên tương ứng sẽ được chèn vào ngay đây !

Nếu mình thay số 1 bằng số 2 hoặc 3 thì tấm hình thứ 2 hoặc 3 sẽ thay vào đó

Mong các Anh Chị giúp giùm em (em có tham khảo các bài khác nhưng toàn tạo thêm thư mục chứa hình riêng)!!
Cảm ơn thật nhiều ạ !

 

[Hoàng Trọng Nghĩa]

Bạn tham khảo trên các link dưới đây xem sao:

http://www.giaiphapexcel.com/forum/showthread.php?25440-Chèn-hình-ảnh-tự-động-vào-excel/page3

http://www.giaiphapexcel.com/forum/showthread.php?4538-Sắp-xếp-sơ-đồ-tổ-chức-bằng-hình/page2

http://www.giaiphapexcel.com/forum/showthread.php?3721-Thêm-1-dạng-PicForm

 

[M@trixs]

đã có tham khảo code

Khi xưa ta bé ta ngu...
Ngày trước download file này ở các trang nước ngoài về, chỉ đơn giản thấy hay thì đưa lên... giờ xem lại code thấy.. buồn cười (code dài dòng, lúc chạy thì cà giật) ===> đâu cứ code nước ngoài viết là hay
He... he...
Sửa lại đây

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  Dim mySel As Range
  On Error Resume Next
  If Not Intersect(Range("KeyCells"), Target) Is Nothing Then
    Set mySel = Selection
    ActiveSheet.Shapes(mySel.Address & "Final").Delete
    ActiveSheet.Shapes(mySel.Value).Copy
    With mySel
      .Offset(0, 2).PasteSpecial
      Selection.Name = .Address & "Final"
      Selection.Left = .Offset(0, 2).Left: Selection.Top = .Offset(0, 2).Top
      Selection.Width = .Offset(0, 2).Width: Selection.Height = .Offset(0, 2).Height
    End With
  End If
  mySel.Select
End Sub

File này dùng 3 hình mẫu có sẳn trong sheet, các bạn có thể cải tiến, thậm chí không cần mấy hình mẩu này tôi nghĩ cũng ko có vấn đề (nếu trong máy tính của ta đã có sẳn)
(Record quá trình Insert hình rồi chỉnh lại code)

Nhưng không hiểu là làm sao để liên kết với hình. vì ko thấy tên của mấy tấm hình trong đoạn code. Thêm vụ "Record quá trình Insert hình rồi chỉnh lại code" này nữa thì pó tay lun tại vì em ko hiểu nó là cái chi chi.....

Bác nào có lòng hảo tâm giúp em với !