Tìm ảnh trong folder dựa trên shapes text and copy into Rectangle

[hadoan-pap]

Em chào mọi người!

E có 1 bài toán khá khó khan mà tìm mãi chưa có cách làm.

Em có 1 file excel như đính kèm và 1 folder chứa ảnh.. Trong file excel em có tạo các TextBox + Rectangle... em muốn tìm ảnh có tên trùng với tên của TextBox trong file excel, sau đó sẽ fill ảnh đó vào khung Rectangle.

E biết cách để fill ảnh vào Rectangle rồi, nhưng em chưa biết làm thế nào để nó có thể tìm được đúng bức ảnh có tên trùng với text ở trong TextBox để fill vào khung Rectangle ạ.

Rất mong mọi ng giúp đỡ em bài toán này.

E xin cảm ơn!

 

[hadoan-pap]

Rất mong dc mọi ng giúp đỡ ạ.

E cảm ơn!

 

[leonguyenz]

Rất mong dc mọi ng giúp đỡ ạ.

E cảm ơn!

Bạn chèn code sau vào:

Sub Button1_Click()
Dim Tmp As String
With ActiveSheet
Tmp = ThisWorkbook.Path & "\PIC\" & _
        .Shapes("TextBox 4").TextFrame.Characters.Text & ".png"
    If Dir(Tmp) <> "" Then
        .Shapes("Rectangle 1").Fill.UserPicture Tmp
    End If
End With
End Sub

Xem file đính kèm.

 

[hadoan-pap]

Bạn chèn code sau vào:

Sub Button1_Click()
Dim Tmp As String
With ActiveSheet
Tmp = ThisWorkbook.Path & "\PIC\" & _
        .Shapes("TextBox 4").TextFrame.Characters.Text & ".png"
    If Dir(Tmp) <> "" Then
        .Shapes("Rectangle 1").Fill.UserPicture Tmp
    End If
End With
End Sub

Xem file đính kèm.

Hi anh.

Cảm ơn anh rất nhiều ạ!