Ahmed.Hussein قام بنشر نوفمبر 1, 2013 مشاركة قام بنشر نوفمبر 1, 2013 السلام عليكم ورحمه الله وبركاته في البدايه احب ان اشكر كل القائمين علي هذا المنتدي الاكثر من رائع واتمني من الله ان يكون في ميزان حسناتهم ... اخواني الاعزاء خبراء الاكسل الرجاء من سيادكتم الافادة بإظهار اسم الصوره عند ادراجها في الاكسل حيث انني عندي صور العمال بالاسم واريد ان ادرجها في الاكسل بنفس الرقم التي تسمي فيها الصوره .... ولكم جزيل الشكر وفائق الاحترام مثال.rar 2 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 1, 2013 مشاركة قام بنشر نوفمبر 1, 2013 الاخ الكريم طلبك غير واضح ... ياريت لو مثال كامل ولكن شاهد المرفق هل تقصد هكذا 2013-2003.rar 4 رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر نوفمبر 2, 2013 مشاركة قام بنشر نوفمبر 2, 2013 جزاك الله خيرا أخي حمادة رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 2, 2013 مشاركة قام بنشر نوفمبر 2, 2013 وجزاك الله خيرا اخي الحبيب / جلال محمد تقبل خالص تحياتي 2 رابط هذا التعليق شارك More sharing options...
يوسف السيد قام بنشر نوفمبر 2, 2013 مشاركة قام بنشر نوفمبر 2, 2013 أخى الكريم // حمادة عمر بارك الله فيك احلى واسهل وابسط من كده مفيش رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 2, 2013 الكاتب مشاركة قام بنشر نوفمبر 2, 2013 لك كل الشكر وكامل الاحترام علي تقدير بالرد يا اخى العزيز ... لكنه ليس هذا ما اقصد كل المطلوب هو عندما ارفق صورة فى الاكسل اجد اسم الصوره بها .وهذا مثال توضيحي ... 2013.rar 1 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 4, 2013 الكاتب مشاركة قام بنشر نوفمبر 4, 2013 من بعد إذنكم لا يوجد حل او رد على هذا الطلب رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 5, 2013 مشاركة قام بنشر نوفمبر 5, 2013 السلام عليكم الاخ الحبيب / يوسف السيد بارك الله فيك تقبل خالص تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 5, 2013 مشاركة قام بنشر نوفمبر 5, 2013 السلام عليكم الاخ الكريم / ahmed_hissen بارك الله فيك ولكن نطلب منك الصبر جرب المرفق .. ان شاء الله به ما تريد اظهار اسم ومسار الصورة التي تقوم باختيارها بالكود التالي : Sub SAMA() Image_path = Application.GetOpenFilename( _ FileFilter:="Picture Files (*.gif;*.jpg;*.jpeg;*.bmp),*.gif;*.jpg;*.jpeg;*.bmp", _ Title:="اختار الصورة") Sheets("sheet1").Range("a1") = Image_path If Image_path <> False Then Sheets("sheet1").Image1.Picture = LoadPicture(Image_path) End If End Sub وارجو ان يفي بطلبك جزاك الله خيرا صورة.rar 4 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 6, 2013 الكاتب مشاركة قام بنشر نوفمبر 6, 2013 شكرا لك اخي العزيز ... هذا ما كنت اريد بالظبط لكن لو في امكانيه إضافة فى الكود بإدراج صور متعددة مره واحدة بدل صورة صوره.... ولك جزيل الشكر وفائق الاحترام 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 هل تقصد اضافة الصور الموجودة في الفولدر كاملا مع وضع اسماؤها 1 رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 8, 2013 مشاركة قام بنشر نوفمبر 8, 2013 الاخ الكريم شاهد هذا الملف ... به كود راائع من اعمال الاستاذ القدير / عباد ... جزاه الله خيرا يقوم باستدعاء جميع اسماء الصور الموجودة في الفولدر الموجود به الملف في العمود A ارجو ان يكون هذا هو طلبك او مزيد التوضيح تقبل خالص تحياتي استخراج اسماء الصور.rar 2 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 9, 2013 الكاتب مشاركة قام بنشر نوفمبر 9, 2013 اخى العزيز أنا بشكرا جدا على متابعتك بس الكود مش عايز يشتغل عندى بسبب انى جهازى 64 bit وكذلك نسخة الاوفيس 64 bit لو أمكن تعديلة ليتناسب مع نسخة الاوفيس ولك جزي الشكر ..... 1 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 9, 2013 الكاتب مشاركة قام بنشر نوفمبر 9, 2013 وهذا نسخة من الخطأ سوف تجدها فى المرفقات .... code error.rar رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 11, 2013 الكاتب مشاركة قام بنشر نوفمبر 11, 2013 السلام عليكم .. أخونا لا يوجد اى حل للطلب الخاص بى .... ولكم جزي الشكر للمساعدة رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر نوفمبر 11, 2013 مشاركة قام بنشر نوفمبر 11, 2013 اخى العزيز أنا بشكرا جدا على متابعتك بس الكود مش عايز يشتغل عندى بسبب انى جهازى 64 bit وكذلك نسخة الاوفيس 64 bit لو أمكن تعديلة ليتناسب مع نسخة الاوفيس ولك جزي الشكر ..... جرب هذا الكود في الملف الذي في مشاركة الاخ حمادة رقم 12 Option Explicit '////////////////////////////////////////////////////// Sub kh_AddNamePicture() Dim MyObj, MyObjFol, Obj Dim iPath As String Dim Last As Long, i As Long '============================ On Error GoTo Err_kh_Files '============================ iPath = ActiveWorkbook.Path & "\" Set MyObj = CreateObject("Scripting.FileSystemObject") Set MyObjFol = MyObj.GetFolder(iPath) '============================ For Each Obj In MyObjFol.Files If Not Dir(Obj.Path, vbDirectory) = "" Then If ActiveWorkbook.Name = Obj.Name Then GoTo 1 i = i + 1 Cells(i + 1, "A").Value = Obj.Name End If 1 Next '============================ Err_kh_Files: If Err Then MsgBox "Err.Number:" & vbCr & Err.Number: Err.Clear Set MyObj = Nothing: Set MyObjFol = Nothing End Sub تحياتي رابط هذا التعليق شارك More sharing options...
حمادة عمر قام بنشر نوفمبر 11, 2013 مشاركة قام بنشر نوفمبر 11, 2013 الاستاذ القدير العلامة الخبير / عبدالله باقشير منتهي منتهي الجمال والروعة جزاك الله خيرا 1 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 11, 2013 الكاتب مشاركة قام بنشر نوفمبر 11, 2013 بحد قبل ما أجرب الكود جزاكم الله خير ... 1 رابط هذا التعليق شارك More sharing options...
Ahmed.Hussein قام بنشر نوفمبر 11, 2013 الكاتب مشاركة قام بنشر نوفمبر 11, 2013 شكر جدا على متابعتكم. وبغض النظر عن عدم قدرتي في حل هذا الطلب وهو كان تقصير مني لكن بجد لكم كل الشكر والتقدير علي الاهتمام والمتابعه وشكر خاص جدا للاستاذ حمادة وايضا رئيس القسم ....... 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.