حذف صور من الورقة

[أبو إلياس السوري]

السلام عليكم

في المرفق يوجد ملف .. الورقة الأولى توجد صور فوق بعضها البعض..

أريد زر من أجل مسح الصور الكوجود في الورقة بدون مسح الكتابات ..

وجزاكم الله خيرا عنا

 

2.rar

[عادل حنفي]

اخي جرب المرفق

 

delet shapes.rar

[أبو إلياس السوري]

أخي بارك الله فيك ..
ولكن عند محاولة الحذف يعطي خطأ بالمعادلة

 

[omar elhosseini]

الاخ أبو إلياس السوري

انظر المرفقات

book1.rar

 

 

[عادل حنفي]

عذرا اخي

الفكره كلها في حرف P اخذفه من السطر الرابع ستحل المشكلة ان شاء الله

وسيكون الكود علي الشكل التالي والشكر موصول للاخ عمر الحسيني

Private Sub CommandButton1_Click()
    Dim Sh As Shape
    For Each Sh In ActiveSheet.Shapes
        If Sh.Type = msoAutoShape Or Sh.Type = msoTextBox Then Sh.Delete
    Next Sh
End Sub

 

[أبو إلياس السوري]

بارك الله فيك .. ورحم والديك هذا هو المطلوب أخ عادل..