请高手帮我分析下面这段代码是什么意思，先谢谢了。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
On Error Resume Next
Dim mr As Range
Set mr = Range("b" & Target.Row)
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 _
ActiveWorkbook.Path & "\图片\" & mr.Value & ".jpg" '当前文件所在目录下以当前单元内容为名称的.jpg图片
Range("a" & Target.Row + 1).Select
End Sub
谢谢你！windblast 这是excel里的代码。主要功能我也试过了，就是如果把图片的位置改成其他列（不在B列）就无法完成那种效果。(b列,当前行) ，你能把它改到其它列吗？谢谢。

这段代码应该是用Vba编写的excel里面的应用，其主要功能是：

当工作表切换时，检查是不是第1列，如果是，则在(b列,当前行)添加跟这个单元格大小一致的文本框，并设置其内容为图片。追问

谢谢你！windblast 这是excel里的代码。主要功能我也试过了，就是如果把图片的位置改成其他列（不在B列）就无法完成那种效果。(b列,当前行) ，你能把它改到其它列吗？谢谢。

追答

Set mr = Range("b" & Target.Row)

将b改成你想要的列。

追问

真的很感谢你。不过还不行啊，图片没显示出来，只是一个图片的框。没有图片。

追答

如果只有框，而没有图片，那一般来说是因为你调用的图片路径没写对。

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/0s6i06sch.html