عادل ابوزيد قام بنشر سبتمبر 14, 2023 مشاركة قام بنشر سبتمبر 14, 2023 السلام عليكم .. محتاج كود يقوم بمسح ادوات الفورم الظاهرة بالشيت دفعة واحدة مهما كان عددها واليكم ملف للعمل عليه ... مع شكرى وتقديرى Book1.xls رابط هذا التعليق شارك More sharing options...
أفضل إجابة محمد هشام. قام بنشر سبتمبر 14, 2023 أفضل إجابة مشاركة قام بنشر سبتمبر 14, 2023 (معدل) وعليكم السلام ورحمة الله تعالى وبركاته تفضل اخي 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 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر سبتمبر 17, 2023 الكاتب مشاركة قام بنشر سبتمبر 17, 2023 جزاك الله كل خير .. الكود يقوم بتنفيذ المهمة على الورقة المسماة sheet1 برجاء تحسين الكود ليتم تنفيذه على كل اوراق الملف مهما كان اسمها .. تقبل منى كل اعتزازى واحترامى رابط هذا التعليق شارك More sharing options...
عبدالفتاح في بي اكسيل قام بنشر سبتمبر 17, 2023 مشاركة قام بنشر سبتمبر 17, 2023 1 ساعه مضت, عادل ابوزيد said: برجاء تحسين الكود ليتم تنفيذه على كل اوراق الملف مهما كان اسمها يجدر القيام بحلقة تكرارية في هذه الحالة Sub delete_tools() Dim ws As Worksheet For Each ws In Worksheets ws.DrawingObjects.Delete Next ws End Sub 2 رابط هذا التعليق شارك More sharing options...
محمد هشام. قام بنشر سبتمبر 17, 2023 مشاركة قام بنشر سبتمبر 17, 2023 (معدل) 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 بواسطه محمد هشام. 1 رابط هذا التعليق شارك More sharing options...
عادل ابوزيد قام بنشر سبتمبر 18, 2023 الكاتب مشاركة قام بنشر سبتمبر 18, 2023 اشكر الاساتذة الافاضل على الحلول الرائعة وجعلها الله فى ميزان حسناتهم رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان