求大师们帮忙

sjx405

代码如下（怎么增加代码在没有照片的时候出现提示！！！）大师们指点一二，第一张图片，第一次输入姓名正常显示，左边是照片，右边是身份证照片，第二张图片，鼠标点击姓名时出现左边跟右边都是身份证照片，如何避免，
Private Sub worksheet_Change(ByVal Target As Range)
   If Target.Address <> "$H$7" Then Exit Sub
   On Error Resume Next
   Application.EnableEvents = False
   With Sheet4
      .Pictures(1).Delete
      .Range("S7").Select
      .Pictures.Insert ThisWorkbook.Path & "\照片\" & Range("H7") & ".jpg"
      .Pictures(1).Top = Range("S7").MergeArea.Top + 1
      .Pictures(1).Left = Range("S7").MergeArea.Left + 1
      .Pictures(1).Height = Range("S7").MergeArea.Height - 1
      .Pictures(1).Width = Range("S7").MergeArea.Width - 2
      .Pictures(2).Delete
      .Range("W1").Select
      .Pictures.Insert ThisWorkbook.Path & "\身份证\" & Range("H7") & ".jpg"
      Pictures(2).Top = Range("W1,AD8").Top
      .Pictures(2).Left = Range("W1,AD8").Left + 2
      .Pictures(2).Height = Range("W1,AD8").Height
      .Pictures(2).Width = Range("W1,AD8").Width + 295
   End With
   Application.EnableEvents = True
End Sub

liangmutou01

   Application.EnableEvents = False

if not dir(

ThisWorkbook.Path & "\照片\" & Range("H7") & ".jpg"

)="" then


   With Sheet4
      .Pictures(1).Delete
      .Range("S7").Select
      .Pictures.Insert ThisWorkbook.Path & "\照片\" & Range("H7") & ".jpg"
      .Pictures(1).Top = Range("S7").MergeArea.Top + 1
      .Pictures(1).Left = Range("S7").MergeArea.Left + 1
      .Pictures(1).Height = Range("S7").MergeArea.Height - 1
      .Pictures(1).Width = Range("S7").MergeArea.Width - 2
      .Pictures(2).Delete
      .Range("W1").Select
      .Pictures.Insert ThisWorkbook.Path & "\身份证\" & Range("H7") & ".jpg"
      Pictures(2).Top = Range("W1,AD8").Top
      .Pictures(2).Left = Range("W1,AD8").Left + 2
      .Pictures(2).Height = Range("W1,AD8").Height
      .Pictures(2).Width = Range("W1,AD8").Width + 295
   End With

end if
增加  if not dir(

ThisWorkbook.Path & "\照片\" & Range("H7") & ".jpg"

)="" then       end if,无照片时，什么也不干。

你说的点击姓名的情况应该与本事件无关，查找其他原因。只点击不改变h7的内容是不会引发本事件的。