i want to load another picture into image control

[Ernest Ansah]

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$B$7" Then
If Sheet14.Range(Target.Address) = "1" Then Sheet14.image1.picture = LoadPicture("C:\Users\Public\Pictures\1.jpg")

If Sheet14.Range(Target.Address) = "2" Then Sheet14.image1.picture = LoadPicture("C:\Users\Public\Pictures\2.jpg")
ElseIf Sheet14.image1.picture = LoadPicture("C:\Users\Public\Pictures\"".jpg") Then Sheet14.image1.picture = LoadPicture("C:\Users\d\AppData\Roaming\BS1 PHOTO\BLANK.jpg")
end if
end sub

please help me correct the error. Thank You

 

[Legacy 143009]

A more easy to read version:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B7")) Is Nothing Then
    If Sheet14.Range(Target.Address) = "1" Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\Public\Pictures\1.jpg")
    End If
    If Sheet14.Range(Target.Address) = "2" Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\Public\Pictures\2.jpg")
    End If
  Else
    If Sheet14.Image1.Picture Is Nothing Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\d\AppData\Roaming\BS1 PHOTO\BLANK.jpg")
    End If
  End If
End Sub

 

[RoryA]

A reminder:

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at:

loading another picture when a picture file does not exist - OzGrid Free Excel/VBA Help Forum

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$7" Then If Sheet14.Range(Target.Address) = "1" Then Sheet14.image1.picture = LoadPicture("C:\Users\Public\Pictures\1.jpg") If Sheet14.Range(Target.Address) = "2" Then…

forum.ozgrid.com

If you have posted the question at more places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.

 

[Ernest Ansah]

A more easy to read version:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B7")) Is Nothing Then
    If Sheet14.Range(Target.Address) = "1" Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\Public\Pictures\1.jpg")
    End If
    If Sheet14.Range(Target.Address) = "2" Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\Public\Pictures\2.jpg")
    End If
  Else
    If Sheet14.Image1.Picture Is Nothing Then
      Sheet14.Image1.Picture = LoadPicture("C:\Users\d\AppData\Roaming\BS1 PHOTO\BLANK.jpg")
    End If
  End If
End Sub

Thank you but i still have some errors