مساعدة في تصحيح كود

[حراثي تواتي]

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

احتاج تصحيح هذا الكود بحيث اذا استردت صورة بامتداد لا يقبله البرنامج تاتيني رسالة " غير امتداد الصورة الى jpeg "

لانه الان تاتيني رسالة خطأ في الكود اذا جلبت صورة غير jpeg

الملف مرفق وشكرا مسبقا

اوفيسنا.xlsm

[amine14]

تفضل الملف هذا  افضل بالتوفيق

لا تنسنى بالدعاء 

https://drive.google.com/file/d/0B-U9DKo5z-PbcHdNTXFLbVRiaFU/view

[حراثي تواتي]

يظهر نفس الخطأ عند استراد صورة ذات امتداد غير jpeg

جرب مع مع امتداد bmp سيظهر معك الخطأ

[amine14]

الملف يعمل معي لقد جربته الات ربما حجم الصور عندك كبير جرب تحوبل امتداد الصورة على برنامج

Right Click Image Converter 

[عبدالفتاح في بي اكسيل]

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

 

اوفيسنا.xlsm

[حراثي تواتي]

شكرا اخي  فعلا الكود شغال 10/10 لكن فقط على الاوفيس 2010 انجليزي

لاني عندما جربته على الاوفي 2010 نسخة فرنسية ظهر معي هذا المشكل

هل لديكم حلا لهذا المشكل  ؟

https://i.top4top.io/p_1624ku2ql1.png