استدعاء الصور من فولدر محدد بشكل ديناميكي جديد

[محمد عبدالحكيم]

السلام عليكم ورحمة الله وبركاته

من زمان كنت ابحث في المنتديات والمواقع التقنية عن كود لجلب الصور من فولدر الى الاكسيل لم اوفق في هذا البحث واقرب ما وجدته كان كود قديم لا يعمل الا على الاكسيل القديم 97 - 2003 وكان الملف حجمه كبير وبطيء على الجهاز ولا يناسب طبيعة عملي ثم تركت الفكرة لفترة ثم بدأت في الاطلاع على ال VBA وبدات في تسجيل بعض الماكرو البسيطة واستخدامها في عملي حتى تذكرت في يوم رغبتي القديمة فقلت ولم لا لما لا ابدء في عمل كود لجلب الصور من الملف بامكانياتي المتواضعه فبدأت في تسجيل ماكرو عادي ثم عدلت على الكود قليلا قليلا بمساعدة البحث وموقع Stack Overflow وكتاب VBA For Dummies حتى كانت النتيجه مرضية الى حد ما لي واردت مشاركة ما بدأته معكم والشكر موصول للاساتذة في منتدى اوفيسنا والذي تعلمت منه الكثير

والان مع الملف وهو عبارة عن ملف اكسيل به عدد 2 شيت

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

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

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

سيحانك اللهم وبحمدك استغفرك واتوب اليك

Great 1.zip

[محمد عبدالحكيم]

للرفع للفائدة

[جلال الجمال_ابو أدهم]

محمد عبدالحكيم

اخى الفاضل تحياتى
يرجى ادراج الملف مرة اخرى
اعتقد ان به مشكله

[محمد عبدالحكيم]

في 10/9/2016 at 11:07, جلال الجمال_ابو أدهم said:

محمد عبدالحكيم

اخى الفاضل تحياتى
يرجى ادراج الملف مرة اخرى
اعتقد ان به مشكله

انا اسف و الله لم الاحظ الرد الا الان لا ادري ما مشكلة الملف ولكن سأرفعه مرة اخرى

Great 1 (2).zip