求助：用宏在excel中插入JPG和JPEG格式图片遇到困难

helenerj

将图片库中的图片插入到excel中，用下面的编码只能将JPG格式的图片插入到excel中，而JPEG格式的不行。请问怎么修改代码，以便同时将两种格式的图片插入到同一张表格中。

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

请赐教,万分感谢！