كيف تحذف كل الصور في نطاق من الخلايا؟
إذا كان هناك العديد من الصور التي تم نشرها في ورقة العمل الخاصة بك ، فأنت الآن تريد حذف بعضها في نطاق محدد ، كيف تتعامل معها بسرعة؟
احذف جميع الصور الموجودة في نطاق معين من الخلايا برمز 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. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. انقر كوتولس > حذف > حذف الرسوم التوضيحية والكائنات، انظر لقطة الشاشة:
2. في حذف الرسوم التوضيحية والكائنات مربع الحوار ، تحقق صور من حذف ، ثم اختر النطاق الذي تريد حذف الصور منه أسفل ينظر في القسم ، انظر لقطة الشاشة:
3. ثم اضغط Ok ، وسيتم حذف جميع الصور من ورقة العمل أو المصنف بأكمله كما حددته.
انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!