Làm thế nào để insert hình trong excel bằng VBA?

[plka]

Vấn đề là thế này :
Em có 1 list hình vẽ để trong sheet đặt tên theo tứ tự 1,2,3,...
Em muốn hỏi làm thế nào để khi 1 ô ta gõ vào thứ tự là 1 chẳng hạn thì tại ô kia nó tự động chèn cái hình có thứ tự đó vào ( được hình tên 1)?!

 

[yeudoi]

Bạn tìm file quản lý nhân viên trong diễn đàn và tìm hiểu cách chèn hình nha.

 

[plka]

Dạ, em tìm mỏi mắt rồi....nhưng hok có thấy nó. Bác biết thì copy hộ em cái link ah!

 

[ThuNghi]

Dạ, em tìm mỏi mắt rồi....nhưng hok có thấy nó. Bác biết thì copy hộ em cái link ah!

Bạn tham khảo file sau, đơn giản amateur thôi.

 

[plka]

Cám ơn mọi người! Đúng cái em cần đấy ạh!

 

[ducquang113]

Can tim file nay?

Ban co the gui lai cho minh cai macro nay duoc ko?

 

[lq177]

Làm gi có files nào đâu nhở

 

[NewBie2019]

Bạn tham khảo file sau, đơn giản amateur thôi.

sao chẳng thấy cái file nào nhỉ?

 

[anhdepjai]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim mydict As Object
Dim shp As Shape
Dim i, irow As Long
Set mydict = CreateObject("Scripting.Dictionary")
irow = 0
For Each shp In Sheet1.Shapes
If Not mydict.exists(UCase(shp.Name)) Then
irow = irow + 1
mydict.Add UCase(shp.Name), irow
End If
Next
If mydict.exists(UCase(Sheet1.Range("A1"))) Then
Sheet1.Shapes(Sheet1.Range("A1")).Left = 100
Sheet1.Shapes(Sheet1.Range("A1")).Top = 30
End If
End Sub

Đoạn code này là sẽ di chuyển vị trí các shapes vào chỗ bạn muốn, mình chưa rõ là bạn muốn copy cái hình vào ô đấy hay move hình vào ô đấy