السلام عليكم ورحمة الله وبركاته رمضان مبارك - تقبل الله منكم صالح اعمالكم بجهود الاخ (خالد الرشيدي ) المبين على الرابط ادناه تم تصميم برنامج حسب متطلبات العمل التي عندي وحبيت ان اطرح سؤالي الجديد عن طريق موضوع جديد وسؤالي الجديد هو وضع صورة للموظف حسب رقم الموظف أو اسمه ، وصورة الموظف محفوظة لديه على بارتيشن D:\ فولدر (صور) اسم المستخدم زيد الرقم السري 123 http://www.officena.net/ib/index.php?showtopic=62628&hl= برنامج بطاقة الموظف الشهري والسنوي.rar

أخي الفاضل أبو زيد ... السلام عليكم إليك الكود التالي وإن شاء الله بإذن المولى يفي بالغرض تماماً .. Sub InsertPictureVBA() Dim pic As Picture, strPhotosFolder As String, strPhoto As String strPhotosFolder = ThisWorkbook.Path & "\صور\" Application.ScreenUpdating = False With Sheets("بطاقة الموظف السنوية") While .Pictures.Count .Pictures(1).Delete Wend strPhoto = strPhotosFolder & Trim(.Range("B2").Value) & ".*" strPhoto = Dir(strPhoto) If Len(strPhoto) Then strPhoto = strPhotosFolder & strPhoto .Pictures.Insert (strPhoto) Set pic = .Pictures(.Pictures.Count) With pic .ShapeRange.LockAspectRatio = msoFalse .Left = .Parent.Range("J1").Left .Top = .Parent.Range("J1").Top .Width = .Parent.Range("J1").Width .Height = .Parent.Range("J1").Height End With End If End With Application.ScreenUpdating = True End Sub كل ما عليك فعله هو تغيير مسار مجلد الصور من هذا السطر strPhotosFolder = ThisWorkbook.Path & "\صور\" ليصبح بهذا الشكل strPhotosFolder = "D:\صور\" كما تمت إضافة سطر في حدث الورقة المسماة "بطاقة الموظف السنوية" ليتم تنفيذ الكود بمجرد التغير في الخلية B2 ... قم بكتابة رقم الموظف لتظهر الصورة الخاصة به في الخلية J1 بنفس الأبعاد للخلية .. الملفات في مجلد الصور تكون بأرقام الموظفين .. كل موظف له صورة مسماة برقمه أو يمكنك التعديل في الكود بما يحلو لك ... ليناسب طلبك أياً كان تقبل الله منا ومنكم صالح الأعمال ولا تنسى أن تحدد أفضل إجابة كما لا تنسى أن تضغط أعجبني هذا إذا أعجبك بالطبع برنامج البطاقة الشهرية والسنوية.rar