宏根据子文件夹匹配图片

不鲁是理

我EXCEL里面网上弄了一个宏，可以自动插入图片到EXCEL，但是宏里图片的路径都是绝对的，都需要提前指定好是放在哪个子文件夹，是否可以修改下，宏可以自动匹配图片所在的子文件夹，不需要每次都手动修改,我是根据EXCEL单元格里面的内容，匹配与他同名的图片，例子中的是F22文件夹，我每次都需要修改到其他如F11的问价夹，因图片太多，需要分成子文件夹管理

Sub 客户图片()


On Error Resume Next
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left + 4
    MT = MR.Top + 3
    MW = MR.Width - 8
    MH = MR.Height - 6
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    Selection.ShapeRange.Line.Visible = msoFalse
    Selection.ShapeRange.Fill.UserPicture _
       "E:\我的总表\客户图片\F22" & "\" & MR.Value & ".jpg"
   End If
Next
End Sub