这个代码可以把照片随名字一起变化

mybestlove

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$D$3" Then Exit Sub
    On Error Resume Next
    ActiveSheet.Shapes("pic").Select
    Selection.ShapeRange.Fill.UserPicture _
        ThisWorkbook.Path & "\photo\" & Range("D3").Value & ".jpg"
    ActiveCell.Select
End Sub

mybestlove

这个必须把照片文件夹photo与工作簿放在同一目录下

点滴梧桐雨

谢谢楼主分享！