البحث في الموقع

السلام عليكم اخواني الكرام اضفت كود لحدف الصورة بشرط والكود يعمل جيدا المشكلة عند اصافة صورة بامتداد مختلف عند الحدف لا يثم حدف الصورة الى بامتداد الموجود في الكود ما اريده هو تعديل على الكود ليقوم بحدف جميع انواع الصور فالمرجو من لديه فكرة ان ينورنا بها رغم تعديل الكود ليحدف جميع انواع الصور لكن لم تنجح المسؤلة وهدا هو الكود المستخدم Dim PathFile As String "PathFile = Application.CurrentProject.Path & "\MyTeme\phoModel\" & [NmMD] & ".png If Len(Dir$(PathFile)) > 0 Then SetAttr PathFile, vbNormal Kill PathFile End If وشكرا

السلام عليكم اعضاء المنتدى الكرام :- لدي صفحة اكسل لمجموعه من التلاميذ و عندي مجموعه من الصور التي تمثل نتائج الامتحانات مخزنة في داخل الحاسوب على شكل صور حيث ان لكل اسم تلميذ يقابله صورة لنتيجه الامتحان الخاصة به المطلوب عندما اقوم بالبحث عن اي اسم من الاسماء للتلاميذ و الوقوف على الخلية المطلوبة يقوم برنامج الاكسل بطباعه الصورة التي تمثل نتيجه التلميذ بشكل مباشر و بدون معاينه مع ملاحضة ان الصور مخزنة في القرص الصلب D مثلا و ليست مخزونه داخل الاكسل و لكم مني جزيل الشكر

السلام عليكم ورحمة الله وبركاته لعبة ترتيب اجزاء الصورة هدية لاخي دغيدي استخدم الاسهم لترتيب الاجزاء المرفق اكسل 2003 ودمتم في حفظ الله لعبة ترتيب اجزاء الصورة.rar

ادراج الصور فى وورد 2010

السلام عليكم ممكن المساعدة اريد هذه الصور ان تظهر في بطاقة التلاميذ 5eme.rar

السلام عليكم ورحمة الله وبركاته. اقتراحات: 1 - إن استخدام بعض الزملاء الأعضاء الجدد لصور شخصية مشوهة كصور أفلام الكرتون المنفرة والمقززة تجعلنا نشيح بنظرنا عنها وكذلك الصور التي لها طابع سياسي أو عسكري غير مرغوبة رجاء متابعتها وطلب تغييرها. 2 - كان هناك شريط إعلان عن المشاركات الجديدة يظهر أعلى الصفحة افتقدناه. 3 - كان للمرفقات التي يحملها العضو الكريم في المشاركات يظهر عدد مرات تنزيلها فنتبين أهميته لكثرة تنزيله. 4 - لا يزال العديد ممن ينتسبون للمنتدى الكريم يدخلون بأسماء أجنبية أو معربة حرفيا" فمتى تنتهي هذه الظاهرة. تقبلوا تحياتي والسلام عليكم.

السلام عليكم ورحمة الله لدي مشكلة في عرض الصورة في نموذج برنامج الارشيف الالكتروني - تظهر هذه المشكلة فقط اثناء تحميل النموذج لاتظهر الصورة ولكن اذا اعدت اختيار صورة بعد الفتح للنموذج طبعا تظهر باقي الصور عادي في النموذج نسيت ان انوه ان هذا البرنامج ماخود من احد المواقع ونسيت اسم صاحبه ارجو ان يسامحني جزاه الله كل خير قمت بتعديل مايلزم ومايناسبني ظهرت هذه المشكلة ارجو ان اكون قد احسنت الشرح والسلام عليكم ملفات مرفقة الارشيف الالكتروني.rar

السلام عليكم لعبة ترتيب اجزاء الصورة هدية للاخ مجدي يونس بامكانية تغيير اجزاء الصورة في فولدر الملف بالنسبة للجزء الفارغ من الصورة اختياري وممكن حذفه او ابقائه باي اسم في فولدر الملف المرفق 2003 kh_imgemove.rar

السلام عليكم ورحمة الله وبركاته كل عام وانتم بخير دالة kh_ShowImage دالة تمكنك من وضع صورة داخل شكل تلقائي اتوماتيكيا يمكنك تغيير اسم او مسار مجلد الصور من داخل كود الدالة وسائط الدالة NameImag اسم الصورة افتراضي ImagRng خلية وضع الصورة افتراضي MyWidth عرض الصورة اختياري MyHeight طول الصورة اختياري ـ اذا لم تحدد طول او عرض معين للصورة تاخذ الصورة عرض وطول الخلية الموضوعة فيها ImagRng ـ اذا قمت بتحريك الصورة يدويا تفقد الصورة ارتباطها بالدالة وعند تحديث الدالة تقوم باضافة الصورة مرة اخرى في مكانها المحدد في الدالة كود الدالة: Option Explicit Option Compare Text '============================================= ' عرض صورة في الخليةِ ' Showing an image in cell '============================================= ' اسم مجلد الصور ' اذا كان مجلد الصور في نفس مجلد ملف الاكسل ' اكتب اسمه فقط ' والا اكتب المسار كاملا ' "D:\MyDocument\MyFunction\photo" Private Const kh_pic As String = "MyImeg" '============================================= ' امكانية تحرير اي نوع من الصور لديك ادناه Private Const MyTyp As String = ".jpg,.bmp,.gif,.png,.tif" '============================================= '============================================= Function kh_ShowImage(ByVal NameImag, ByVal ImagRng As Range, Optional ByVal MyWidth As Single, Optional ByVal MyHeight As Single) Dim Tp Dim shp As Shape Dim ibo As Boolean Dim MyTop As Single, MyLeft As Single Dim MyFile As String, MyPath As String '---------------------------------- On Error GoTo 1 '---------------------------------- MyTop = ImagRng.Top: MyLeft = ImagRng.Left With ImagRng.Worksheet For Each shp In .Shapes If shp.Top = MyTop And shp.Left = MyLeft Then shp.Delete: Exit For End If Next shp End With '----------------------------------- If IsEmpty(NameImag) Then GoTo 1 '----------------------------------- If MyWidth = 0 Then MyWidth = ImagRng.Width If MyHeight = 0 Then MyHeight = ImagRng.Height '----------------------------------- If Not InStr(kh_pic, ":") Then MyPath = ThisWorkbook.path & "\" MyFile = MyPath & kh_pic & "\" & CStr(NameImag) '----------------------------------- For Each Tp In Split(MyTyp, ",") If Not Dir(MyFile & Trim(Tp), vbDirectory) = vbNullString Then With ImagRng.Worksheet.Shapes.AddShape(msoShapeRectangle, MyLeft, MyTop, MyWidth, MyHeight) .Fill.UserPicture MyFile & Trim(Tp) End With ibo = True Exit For End If Next 1 kh_ShowImage = ibo End Function المرفق 2003-2010 دالة عرض صورة في خلية بطول وعرض اختياري.rar

السلام عليكم هذا مثال عملي لموضوع هل تعلم ---------سلسلة تعليمية 2 سبورة احرف متحركة مماثلا لاحد الاعمال المعمولة بغير الاكسل قمت بتحميله سابقا من المنتدى شاهد المرفق 2003 الاحرف المتحركة.rar