在某个单元格输入硬盘中某个图片的文件名会在另外指定的单元格自动插入该图片

wjh2227995

在某个单元格输入硬盘中某个图片的文件名会在另外指定的单元格自动插入该图片比如在A2输入我准备要查找的某个硬盘底下的某个图片的文件名，输入后类似模糊查找的功能，点击确定后，这个图片会被找出并插到B2

（B2的图片的文件名比如说为22-321 是存在E:的任何可能的位置，没有固定路径）

请问这样的功能是否能实现

pureshadow

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = Range("a2") Then
    Dim MyRoute
    MyRoute = InputBox("请录入路径", "路径", ThisWorkbook.Path)
        Range("b2").Select
        ActiveSheet.Pictures.Insert(MyRoute & "\" & Target & ".jpg").Select
End If
End Sub