Hỏi VBA chèn ảnh tự động vào Excel

[ohlexus]

Chào các bạn,
Mình có tìm được đoạn sau để tự động chèn ảnh vào Excel, nhưng muốn thay đổi 1 vài chỗ nên nhờ các bạn chỉ giúp.

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

1. Mình 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. Mình muốn sử dụng được nó cho tất cả các file Excell khác có trong máy.

Cảm ơn các bạn rất nhiều

 

[yamVB]

Chào bạn,

Nếu là một đoạn code bạn sưu tầm được, thì chắc chắn bạn cần phải tùy biến cho nó phù hợp với mục đích của mình,
Không rõ là đoạn code trên đã đáp ứng yêu cầu thao tác của bạn chưa?

Còn về 2 vấn đề bạn đặt ra, thì dưới đây là phương án mình góp ý bạn tham khảo:
1. Thay phần bôi vàng bên dưới thành đướng dẫn của thư mục chứa hình ảnh bạn cần

2. Sử dụng đoạn code trên để tạo 1 Add-in, khi đó sẽ dễ dàng và linh động cho thao tác của bạn khi sử dụng cho nhiều file excel bạn cần.

Cảm ơn.