خالد محمد فتحي

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

جميل جداً اخي هشام جزاك الله كل خير

هذا ملف به الكود وبه الشرح ايضاً وعليك بانشاء ملف جديد في القرص c باسم picr كود اظهار صورة من ملف.rar

نعم صحيح طريقة سهلة ولكن لوفرضنا انه لدينا حوالي 600 صورة في هذه الحالة يصبح حجم ملف الاكسيل كبيراً جداً وجدت كود رائع بحيث تظهر الصورة في الشيت عن طريق البحث عنها في ملف ولنفرض انه في القرص c Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo 1 Application.ScreenUpdating = False If Target.Column = 16 Then Else If Target.Column = 5 And Target.Row < 3 Then If Target.Cells <> "" Then Image1.Visible = True Image1.Picture = LoadPicture("c:\pic\" & (Target.Text) & ".jpg") Image1.Width = 98 Image1.Height = 114 End End If 1 Image1.Visible = False MsgBox ("لاتوجد صورة") 0 End End If End If Application.ScreenUpdating = True Application.EnableEvents = True End Sub يشير هذا السطر If Target.Column = 5 And Target.Row < 3 Then الى رقم العمود والصف الذي سيكتب به رقم الطالب والسطر Image1.Picture = LoadPicture("c:\pic\" & (Target.Text) & ".jpg") يشير الى مكان الملف واسمه في القرص يتم وضع الكود في طور التصميم بالفيجوال بعد اضافة عنصر اكتفي للصورة في الشيت المحدد كما يجب مراعاة حجم الصورة Image1.Width = 98 Image1.Height = 114

اخي هشام اشكر لك حسن التعاون جزاك الله كل خير

لنفرض ان هناك شيت للبحث عن بيانات متدرب واظهار صورت المتدرب بجانبه كيف يمكن ذلك؟