اخى الفاضل ابو البراء طبقت تعليماتك واضفت صورة no.jpg لكن للاسف عندما لا تتوفر صورة واحده لا يعرض باقى الصور للشخص ... انظر الى الكود لعل اكون مخظئ فى التنفيذ
Private Sub Worksheet_Change(ByVal Target As Range)
Dim myPath As String, fullImagePath As String
myPath = ThisWorkbook.Path & "\pic\"
fullImagePath = myPath + [B1]
If Target.Address = "$B$1" Then
On Error GoTo Skipper
Image1.Picture = LoadPicture(fullImagePath & "1.JPG")
Image2.Picture = LoadPicture(fullImagePath & "2.JPG")
Image3.Picture = LoadPicture(fullImagePath & "3.JPG")
Image4.Picture = LoadPicture(fullImagePath & "4.JPG")
Exit Sub
End If
Skipper:
Image1.Picture = LoadPicture(myPath & "NO.jpg")
Image2.Picture = LoadPicture(myPath & "NO.jpg")
Image3.Picture = LoadPicture(myPath & "NO.jpg")
Image4.Picture = LoadPicture(myPath & "NO.jpg")
End Sub