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

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

احذف جميع الصور الموجودة في نطاق معين من الخلايا برمز VBA

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

---

احذف جميع الصور الموجودة في نطاق معين من الخلايا برمز VBA

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

1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

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

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 for Excel

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

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

اذهب إلى Download نسخة تجريبية مجانية 30 يومًاشراء PayPal / MyCommerce

بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:

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

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

3. ثم اضغط Ok ، وسيتم حذف جميع الصور من ورقة العمل أو المصنف بأكمله كما حددته.

انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!