Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each im In ActiveSheet.Pictures
im.Delete '删除所有图片
Next
mc = ActiveCell.Value '定义mc为激活单元格值
If mc Like "G*" Then '如果名字以G开头
sPictureName = ThisWorkbook.Path & "\" & "图库" & "\" & Application.PathSeparator & mc & ".JPG"
Set p = ActiveSheet.Pictures.Insert(sPictureName)
p.Left = Target.Left + Target.Width '目标宽度
p.Top = Target.Top '目标高
End If
End Sub