اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

  • تمت الإجابة
قام بنشر (معدل)

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

تفضل اخي 

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

تم تعديل بواسطه محمد هشام.
  • Like 1
قام بنشر

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

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

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

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

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

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

 

  • Like 2
قام بنشر (معدل)
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

 

تم تعديل بواسطه محمد هشام.
  • Like 1

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information