كيفية حذف جميع الصور في نطاق من الخلايا؟
إذا كانت هناك عدة صور موزعة في ورقة العمل الخاصة بك، وتريد الآن حذف بعضها في نطاق محدد، كيف يمكنك التعامل مع هذا بسرعة؟
حذف جميع الصور في نطاق محدد من الخلايا باستخدام كود 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. بعد ذلك، انقر فوق زر موافق، وسيتم حذف جميع الصور من ورقة العمل أو المصنف بالكامل حسب اختيارك.
Kutools لـ Excel - مزود بأكثر من 300 أدوات أساسية لبرنامج Excel. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! قم بالتنزيل الآن!
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد