مطلوب كود استدعاء صورة من فولدر

[sief122]

برجاء من اساتذتى الافاضل مطلوب كود ادراج صورة من على الكمبيوتر لموظف وعندما ابحث عن الاسم تظهر الصورة مع الاسم في البحث وشكرا

[أبومروان]

وعليكم السلام ورحمه الله وبركاته

اتفضل شاهد الرابط أدناه ⬇️ لعله تجد ما تريده 

 

[ابراهيم الحداد]

السلام عليكم و رحمة الله

شاهد هذا المرفق ربما يكون هو طلبك

يمكنك التعديل عليه بما يتوافق مع رغباتك

 

 

ViewPicts.rar

[sief122]

بارك الله في حضرتكم وازادكم من نعمه

وجاري التجربه وشكرا جزيلا

بعد إذن حضرتك استاذ ابراهيم

اكتب مسار الصورة ازاي في الكود ؟

[أبومروان]

2 ساعات مضت, ابراهيم الحداد said:

السلام عليكم و رحمة الله

شاهد هذا المرفق ربما يكون هو طلبك

يمكنك التعديل عليه بما يتوافق مع رغباتك

 

 

ViewPicts.rar 723.37 kB · 9 downloads

جزاك الله خير وعمل اكثر من رائع

[بلانك]

الملف لا يعمل عندي ما السبب ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[ابراهيم الحداد]

السلام عليكم و رحمة الله

عذرا على الخطأ

اجعل الكود هكذا

Private Sub ComboBox1_Change()
Dim NameFound As Variant
Dim FPath As String
FPath = ThisWorkbook.Path & "\"
NameFound = ComboBox1.Value
FPath = ThisWorkbook.Path & "\"
On Error Resume Next
Image1.Picture = LoadPicture(FPath & "\" & "Images" & "\" & "NoPict.jpg")
Image1.Picture = LoadPicture(FPath & "\" & "Images" & "\" & NameFound & ".jpg")
End Sub

 

[بلانك]

بارك الله فيك ............ ماهي فائدة زر  EXPORT_IMAGE

[ابراهيم الحداد]

السلام عليكم و رحمة الله

الزر المشار اليه هو كان لكود يقوم بجلب الصورة حسب الاسم الموجود فى التكست بوكس

و قد تم الغاء الكود و سقط سهوا منى ازالة الزر

يمكنك ازالته دو ن اى ضرر

[بلانك]

شكرا جزيلا على سرعة الرد وبارك الله فيك استاذي ابراهيم الحداد

اقتباس