كيفية حذف جميع الصور في نطاق من الخلايا؟

إذا كانت هناك عدة صور موزعة في ورقة العمل الخاصة بك، وتريد الآن حذف بعضها في نطاق محدد، كيف يمكنك التعامل مع هذا بسرعة؟

حذف جميع الصور في نطاق محدد من الخلايا باستخدام كود VBA

حذف جميع الصور في ورقة عمل أو المصنف بالكامل باستخدام Kutools لـ Excel

حذف جميع الصور في نطاق محدد من الخلايا باستخدام كود VBA

هناك كود VBA بسيط يمكن أن يساعدك على حذف الصور في النطاق المحدد دون الحاجة إلى حذفها واحدة تلو الأخرى. يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة، ثم قم بلصق الكود التالي في نافذة الوحدة.

كود VBA: حذف جميع الصور في نطاق محدد من الخلايا:

Sub DeletePic()
    Dim xPicRg As Range
    Dim xPic As Picture
    Dim xRg As Range
    Application.ScreenUpdating = False
    Set xRg = Range("A5:B8")
    For Each xPic In ActiveSheet.Pictures
        Set xPicRg = Range(xPic.TopLeftCell.Address & ":" & xPic.BottomRightCell.Address)
        If Not Intersect(xRg, xPicRg) Is Nothing Then xPic.Delete
    Next
    Application.ScreenUpdating = True
End Sub

ملاحظة: في الكود أعلاه، A5:B8 هو النطاق الذي تريد حذف الصور منه. يرجى تغييره حسب حاجتك.

3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وستتم إزالة جميع الصور الموجودة في النطاق المحدد فوراً، كما هو موضح في لقطة الشاشة:

حذف جميع الصور في ورقة عمل أو المصنف بالكامل باستخدام Kutools لـ Excel

إذا كنت بحاجة إلى حذف جميع الصور من ورقة عمل أو مصنف، فإن أداة حذف الرسوم التوضيحية والكائنات في Kutools لـ Excel يمكن أن تساعدك.

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

1. انقر فوق Kutools > حذف > حذف الرسوم التوضيحية والكائنات، كما هو موضح في لقطة الشاشة:

2. في مربع الحوار حذف الرسوم التوضيحية والكائنات، قم بتحديد الصور من قسم الحذف، ثم اختر النطاق الذي تريد حذف الصور منه ضمن قسم البحث في، كما هو موضح في لقطة الشاشة:

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