ادراج صورة من مسار معين بقائمة DataValidation

[Guest محمد ابو صهيب]

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

 

تم تعديل أغسطس 12, 2016 بواسطه محمد ابو صهيب

[ياسر خليل أبو البراء]

دائماً ما تتحفنا بموضوعاتك القيمة والرائعة والمدهشة

بارك الله فيك وجزيت خيراً أخانا الغالي أبو صهيب