حذف كافة الصور دفعة واحدة

[عاشق الاكسيل]

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

اخواتى الاعزاء اريد كود يمكننى من مسح كافة الصور المدرجة فى الملف دفعة واحدة

او ما شابه لتنفيذ الامر حيث ان الملف يحتوى على ما يقرب من 500 صورة او اكثر

[سليم حاصبيا]

استعمل هذا الكود

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

 

[عاشق الاكسيل]

شكرا استاذى سليم حاصيبا

جعلك الله عونا لنا دائما