كود لمسح ادوات الفورم

[عادل ابوزيد]

السلام عليكم .. محتاج كود يقوم بمسح ادوات الفورم الظاهرة بالشيت دفعة واحدة مهما كان عددها واليكم ملف للعمل عليه ... مع شكرى وتقديرى

Book1.xls

[محمد هشام.]

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

تفضل اخي 

Sub Supprimer_tous_les_objets()

    Dim ws As Worksheet: Set ws = Sheets("Sheet1")
    On Error Resume Next
    ws.DrawingObjects.Visible = True
    ws.DrawingObjects.Delete
    On Error GoTo 0
    
End Sub

 

Book1.xls

تم تعديل سبتمبر 14, 2023 بواسطه محمد هشام.

[عادل ابوزيد]

جزاك الله كل خير .. الكود يقوم بتنفيذ المهمة على الورقة المسماة sheet1

برجاء تحسين الكود ليتم تنفيذه على كل اوراق الملف مهما كان اسمها .. تقبل منى كل اعتزازى واحترامى

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

1 ساعه مضت, عادل ابوزيد said:

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

يجدر القيام بحلقة تكرارية في هذه الحالة 

Sub delete_tools()
    Dim ws As Worksheet
    For Each ws In Worksheets
    ws.DrawingObjects.Delete
    Next ws
End Sub

 

[محمد هشام.]

Sub Supprimer_tous_les_objets()
For Each ws In ActiveWorkbook.Worksheets
With ws
    On Error Resume Next
    ws.DrawingObjects.Delete
    On Error GoTo 0
    End With
    Next
End Sub

 

تم تعديل سبتمبر 17, 2023 بواسطه محمد هشام.

[عادل ابوزيد]

اشكر الاساتذة الافاضل على الحلول الرائعة وجعلها الله فى ميزان حسناتهم