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

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

السلام عليكم ورحمة الله علمائنا واساتذتنا انتم دائما تبهرنونا وتفاجؤننا في مبادرتكم لفعل الخير في هذا الصرح العربي العملاق والله لو قمنا في انشاء "تصويت" على غوغل حول المواقع الخدمية العربية الاكثر استجابة وتميزاً لنلاحظ ان موقع اوفيسنا الكريم سوف يكون من الاوائل في هذا المجال وهذا ناتج عن صدق التعاون والاخلاص والاحسان في نشر العلم والمعرفة للعالم العربي اجمع والله ليست مجاملة ابداً وانما حقيقة واضحة عند الجميع اخواني واحبائي لم اعرف ولم اجد الحل في المواقع العالمية الكبيرة في مجال برمجة اكسل حول إدراج الصور التي هي بلاحقة (icon) المشكلة في الصورة المرفقة مبينة لكم صورتين كل واحدة بلاحقة الاولى في خصئص الصورة (Properties) في تبويب (Picture) تكون الصورة (icon) سحبتها من احد المواقع القديمة حول البرمجة ولكن موضوعها موضوع اخر خارج عن الصورة الثانية في خصائص الصورة (Properties) في تبويب (Picture) تكون الصورة(Bitmap) وهي مني فعند ادراج صورة بلاحقة (icon) يعطيني اكسل الرسالة المعروفة "invalid picture" شاهدو المشكلة واعطوني ارائكم حول طريقة الحل

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

السلام عليكم ورحمة الله وبركاته أعرض عليكم كودا ( منقولا من أحد المنتديات الأجنبية مع التعديل لملائمة الهدف ) يمكن استخدام الكود فى نسخ صورة من اميج باليوزرفورم الى أى مكان تحدده بالهارديسك الصورة يتم تصديرها الى الهارديسك بامتداد jpg الكود Option Explicit Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long) Private Declare Function EmptyClipboard Lib "user32" () As Long Private Declare Function SetClipboardData& Lib "user32" (ByVal wFormat&, ByVal hMem&) Private Declare Function CloseClipboard& Lib "user32" () Private Declare Function DestroyIcon& Lib "user32" (ByVal hIcon&) Private Sub ImageCopy() ' المتغيرات Dim MyPic As StdPicture, MyPicName As String, xCopy Set MyPic = Me.Image1.Picture ' حدد اسم الاميج الذى يحتوى الصورة MyPicName = "H:\YasserKhalil.jpg" ' حدد اسم و مسار التخزين على الهارديسك ' فتح الذاكرة العشوائية OpenClipboard 0 'تفريغ الذاكرة من البيانات EmptyClipboard ' نسخ الصورة الى الذاكرة xCopy = SetClipboardData(2, MyPic.Handle) ' اغلاق الذاكرة CloseClipboard ' شرط : فى حالة وجود الصورة بالذاكرة If xCopy Then ' جواب الشرط : حفظ الصورة المحددة بالمسار المحدد SavePicture MyPic, MyPicName ' انهاء جملة الشرط End If ' تفريغ الذاكرة DestroyIcon MyPic.Handle Set MyPic = Nothing ' رسالة بانتهاء المهمة MsgBox "Mr.YasserKhalil Your's Picture Saved On (" & MyPicName & ")" End Sub استدعاء الكود ImageCopy يتم عن طريق CommandButton فى الفورم Private Sub CommandButton1_Click() ImageCopy End Sub مع خالص نحياتى picture from UserForm to a drive.rar

مجهود بسيط مني إليكم وإلى كل من يعاني من استدعاء الصور في الإكسيل.. تم استخدام طريقة مختلفة وهي تلوين المستطيل بالصورة مما وفر علينا كثير من الكودات.. حيث يمكنك البحث عن الصور والتعديل عليها وكذلك إضافتها إلى المجلد بشكل تلقائي .. إليكم المرفق. (الرجاء نقل المجلد pics إلى مجلد المستندات لديكم) lockup and get pics.rar

بعد التحية لكم اساتذتي الكرام .. الكود التالي يعمل 100% ولله الحمد ولكن يحفظ الصورة بعد مسحها (scan) داخل مجلد photo والمطلوب الحفظ في مجلد فرعي داخل مجلد photo علماً بان المجلد الفرعي مسمى بالرقم الوظيفي للموظف .. حيث لكل موظف مجلد فرعي يحتوي على صور وارشيف الموظف المحدد حسب id ارجو شاكراً التعديل على الكود ليحفظ الصورة في المجلد الفرعي داخل مجلد صور الموظفين الموجود في مجلد البرنامج الرئيس .. Set img = CreateObject("wia.commondialog").ShowAcquireImage.SaveFile(Application.CodeProject.Path & "\photo\" & "\\" & [id] & ".jpg") كما في الكود بحيث ... id هو اسم الصورة حسب حقل الرقم الوظيفي للموظف photo هو المجلد الرئس لصور البرنامج اما المجلد الفرعي فهو متغير حسب رقم الموظف ولكنه يساوي id الصورة (رقم الموظف) مثلاً إذا كان اسم الصورة aa.jpg فإن اسم المجلد الفرعي aa اتمنى اكون قدرت اوصل الفكرة .. شاكر ومقدر لكم ...

المرجوا مساعدتي في وضع صورة داخل خلية حسب رقم الموظف جزاكم الله خيرا dd.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