حذف صور من كل صفحة من صفحات ملف الاكسل

[ابو طيبه]

السلام عليكم

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

حذف صوره من كل صفحات الملف.xlsm

[ابراهيم الحداد]

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

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

Sub Delpics()
Dim ws As Worksheet, Pic As Object
For Each ws In Worksheets
For Each Pic In ws.Pictures
Pic.Delete
Next
Next
End Sub

 

[ابو طيبه]

شكرا جزيلا لجهودك استاذ ابراهيم العزيز  الله يجعلها في ميزان حسناتك تحياتي لحضرتك  

استاذ العزيز كيف يمكن اضافة باسورد قبل تنفيذ الحذف وليكن ١٢٣

[ابراهيم الحداد]

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

استخدم الكود التالى 

الرقم السرى 123 يمكنك تغييره كما شئت

Sub Delpics()
Dim ws As Worksheet, Pic As Object
Dim InBox As String
InBox = InputBox("  يرجى ادخال كلمة السر", "ازالة الصور ")
For Each ws In Worksheets
For Each Pic In ws.Pictures
If InBox = "123" Then
Pic.Delete
Else
MsgBox "ارجو وضع الرقم السرى الصحيح ...حاول مرة ثانية"
Exit Sub
End If
Next
Next
End Sub

 

[ابو طيبه]

شكرا جزيلا لجهودك الرائع استاذ ابراهيم العزيز  الله يجعلها في ميزان حسناتك تحياتي