Option Explicit
Dim FillImg As String
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$2" Then
FillImg = "c:\ÕæÑ"
Worksheets("sheet1").Image1.Picture = LoadPicture(FillImg & "\" & Target & ".jpg")
End If
End Sub
السلام عليكم.....تطبيق بسيط في ادراج صورة من مسار معين بقائمة DataValidation
تنبيه : ليشتغل الملف بشكل صحيح يجب فك ضغط الملف و نسخ الملف الى مسار كما هو مشار اليه في الصورة
http://www.mrkzgulf.com/do.php?id=389360