معالجة خطأ كود جلب صوره

[M.NHAKAMI]

عندي الملف التالي عن طريقه اختار صوره من الكمبيوتر لتظهر بالفورم المشكله بالكود انه عندما اريد اختيار صوره بعد الضغط على زر اختيار الصوره تظهر نافذة اختيار الصور اجد جميع التمددات انا مثلا محدد تمدد jpeg , gif  عند اختيار غير هذا التمدد تظهر شاشة الخطأ ويغلق البرنامج اريد معالجة الكود بحيث لو اخترت غير التمدد المطلوب يظهر msgbox يخبر بان التمدد غير صالح 

جلب صوره.xlsm

[omar elhosseini]

 

استبدل هذا السطر

image_path = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select A File", MultiSelect:=False)

 

[M.NHAKAMI]

ممتاز جدا اخي