Chèn hình vào cell vba

[voduyminh0504]

Chào các bạn
Rất mong nhận được sự hỗ trợ của các bạn với vấn đề dưới đây của tôi liên quan đến việc chèn hình vào file excel
Tôi dùng đoạn code sau để chèn hình vào
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A:A]) Is Nothing Or Target.Row = 1 Then Exit Sub
On Error GoTo Err_
Target(, 2).Worksheet.Shapes(Target.Address).Delete
Err_:
With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg")
.Name = Target.Address
.Top = Target.Top
.Left = Target(, 2).Left
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Target.Height
.ShapeRange.Width = Target(, 2).Width
End With
Target.Offset(1, 0).Select
End Sub

Hai vấn đề của tôi cần được hỗ trợ như sau
1) Tôi muốn file hình được dẫn vào từ một folder khác (thay vì cùng folder với file chứa file excel)
2) Tôi muốn hình tự động hiện ra khi tên hình trong ô ở cột A thay đổi (hoặc cột chỉ định [A:A]), hiện nay hình chỉ hiện ra khi gõ enter), do vậy khi cần thay đổi hình thì rất bất tiện, cũng như hình không thể tự delete khi dữ liệu ở cột A (hoặc cột chỉ định) không còn hoặc thay đổi để có hình khác.

Tôi xin được cám ơn các bạn trước.
Trước đây tôi thường nhận được sự hỗ trợ rất nhiệt tình và nhanh chóng của các bạn, nhờ thế tôi giải quyết được rất nhiều vấn đề của tôi. Xin một lần nữa cám ơn các bạn.

 

[hhoang_56]

Sai chuyên mục rồi nhé. VBA thì post vào mục Lập trình