VBA代码 插入图片 需要修改每次插入可自主选择文件夹

喝雪碧的猫

以下代码，需要把指定文件夹，改为可选择文件夹后，执行导入。求大神指点！

Sub 本地图库工具()
On Error Resume Next
Dim w
w = MsgBox("请确定你的图片是否放在E盘的^图库^文件夹下！" & vbNewLine & "并且图库文件夹下不能有子文件夹！" & vbNewLine & "图片只能是jpg格式！", vbYesNo, "本地图库使用前提示")
If w = vbNo Then
Exit Sub
End If
Dim MR As Range
For Each MR In Selection
  If Not IsEmpty(MR) Then
    MR.Select
    ML = MR.Left
    MT = MR.Top
    MW = MR.Width
    MH = MR.Height
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, ML, MT, MW, MH).Select
    On Error Resume Next
    Selection.ShapeRange.Fill.UserPicture _
        "E:\图库\" & MR.Value & ".jpg"
    End If
Next
End Sub

喝雪碧的猫

自己笨笨的试过几次 写不成功

iu950

通过文件对话框选择路径的例子

nicleyuan

喝雪碧的猫

iu950 发表于 2022-12-24 16:15
通过文件对话框选择路径的例子

选择文件夹的问题解决了但是我改进去 运行还是会出错···

iu950

喝雪碧的猫 发表于 2022-12-24 19:27
选择文件夹的问题解决了但是我改进去 运行还是会出错···

通过文件对话框选择路径，用图像填充形状的例子