كيف يمكن حذف جميع الصور الموجودة ضمن نطاق معيّن من الخلايا؟
إذا كانت هناك عدة صور مضافة إلى ورقة العمل الخاصة بك، وترغب الآن في حذف بعضها ضمن نطاق معيّن بسرعة، فكيف يمكنك تحقيق ذلك؟
حذف جميع الصور في نطاق محدد من الخلايا باستخدام كود VBA
حذف جميع الصور في ورقة عمل أو المصنف بأكمله باستخدام Kutools لـ Excel
حذف جميع الصور في نطاق محدد من الخلايا باستخدام كود VBA
يوجد كود VBA بسيط يمكنه مساعدتك في حذف الصور النطاق المحدد دون الحاجة إلى حذفها واحدة تلو الأخرى، يُرجى اتباع الخطوات التالية:
1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة البرمجة (Module)، ثم الصق الكود التالي في نافذةالوحدة البرمجية (Module).
كود 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’s حذف الصور والكائناتيمكنها مساعدتك في ذلك.
بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:
1. انقر فوقKutools > حذف > حذف الصور والكائنات، انظر لقطة الشاشة:
2. في مربع حوارحذف الصور والكائنات، حدد خانة الاختيارالصور (Pictures)من قسمحذف (Delete)، ثم اختر النطاق الذي تريد حذف الصور منه ضمن قسمالبحث في (Look in). انظر لقطة الشاشة:
3. بعد ذلك، انقر على زرموافق (Ok)، وستُحذف جميع الصور من ورقة العمل أو المصنف بأكمله حسب اختيارك.
Kutools لـ Excel – مزوَّد بأكثر من 300 أداة أساسية لبرنامج Excel! اجعل مهامك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل