请教高手一个vba代码

okzmz001

我D9是身份证号码，是公式变化的，当X2变化，D9自动变化，我要实现D9身份证号码变化后，照片名称自动变化，以下代码是必须在D9输入身份证号码才能更换照片，请高手帮忙修改一下，谢谢
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$D$9" Then    '如果编辑单元格为D9身份证号码则插入照片
        插入照片 Target
    End If
End Sub

Public Sub 插入照片(name)
    Dim path, pic
    [S7].Select
    path = Dir(ThisWorkbook.path & "\照片\" & name & ".*")    '查找照片路径
    For Each pic In ActiveSheet.Pictures
        pic.Delete
    Next
    If path = "" Then Exit Sub     '未找到图片直接退出过程
    With ActiveSheet.Pictures.Insert(ThisWorkbook.path & "\照片\" & path).ShapeRange  '插入照片
        .LockAspectRatio = msoFalse
        .Height = Range("S7").MergeArea.Height - 2
        .Width = Range("S7").MergeArea.Width - 2
        .Left = [S7].Left + 1
        .Top = [S7].Top + 1
    End With

End Sub