求助，图片超链接的问题

ayouxiaopy

查找A列的名字在B列建立超链接，图片位置在桌面的网签部数据\大修基金图片文件夹里面，图片格式是.JPG，在论坛找了一个代码，但是一直找不到，麻烦各位老师帮忙看看怎么修改一下
代码如下，来自论坛的一位老师
Sub yy()
On Error Resume Next
f = Dir("ThisWorkbook.Path & \网签部数据\大修基金图片\*.jpg")
Do While Trim(f) <> ""
   Set c = Range("a:a").Find(Right(Left(f, InStr(f, "-") - 1), Len(Left(f, InStr(f, "-") - 1)) - 1))
   If Not c Is Nothing Then
      ActiveSheet.Hyperlinks.Add Anchor:=Range("b" & c.Row), Address:= _
        "" & f & "", TextToDisplay:="" & f & ""
   End If
f = Dir
Loop
Range("b2:b" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Value = "暂无"
End Sub

ayouxiaopy

C:\Users\Administrator\Desktop\1560041641(1)

ayouxiaopy

谢谢大家了