图片插入宏，有哪位帮我看下是什么问题

xfwljd

！图片查询宏！.zip (45.43 KB, 下载次数: 6)

2018-8-31 16:20 上传

点击文件名下载附件

为什么我点了运行宏插入的不是我要的图片，出来一张莫名其妙的图片

xfwljd

不知道那一步出了问题，有宏高手帮我解析下吗

xfwljd

以前好像可以的，现在怎么就不行了，好纠结

xfwljd

只能放磁盘根目录下面才可以，，比如D盘，我要把图片放到D盘下面就可以了，放到D盘下面某个文件夹就不行

ione_fox

http://club.excelhome.net/thread-1433434-1-1.html  

xfwljd

可以了，谢谢的提醒

xfwljd

Public path_str As String
Sub pic_insert()
If Trim(path_str) = "" Then
path_str = InputBox("请输入图片服务器路径：" & Chr(13) & Chr(10) & "例如：\\192.168.0.9\image\", "picture_path")
End If
On Error Resume Next
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
    Selection.ShapeRange.Fill.UserPicture _
       path_str & MR.Value & ".jpg"
   End If
Next
End Sub

xfwljd

可以了，代码不知道哪里不一样