كود لحدف الصور من ورقة العمل ( worksheet )

[أبوســـارة1973]

السلام عليكم جمعيا

أسعد الله صباحكم بكل خير

المطلوب أخواني كود يقوم بمسح جميع الصور الموجودة في ورقة العمل ( sheet5)

[طارق محمود]

السلام عليكم

تفضل أخي

Sub delete_Pic()


Worksheets("sheet5").Select


 For Each sh In ActiveSheet.Shapes

	sh.Delete

 Next


End Sub

[أيسم إبراهيم]

السلام عليكم

تقضل أخي الكريم

Sub DelPic()

Application.ScreenUpdating = False

	ActiveSheet.Pictures.Delete

Application.ScreenUpdating = True

End Sub

دمت بخير

أيسم إبراهيم

تم تعديل أغسطس 2, 2010 بواسطه أيسم إبراهيم

[أبوعبد الله]

أخي العزيز / أبو سارة

إضافة للحلول المتميزة التي قدمها إخواني الأعزاء طارق وأيسم ، بالمرفق تنفيذ للفكرة مع اجتناب حذف مفتاح تنفيذ كود حذف الصور إضافة لفكرة نسخ ولصق نفس الصور من جديد من ورقة أخرى ، أرجو أن يمثل المرفق إضافة مفيدة .

تحياتي للجميع

أبو عبدالله

حذف كل الصور من الورقة.rar

[أبوســـارة1973]

TareQ M

أيسم إبراهيم

أبو عبدالله

جزاكم الله خير الجزاء

وشكرا لكم على سرعة الرد والتجاوب مع موضوعي

كتب الله لكم جميعاً الجنة وحرم أجسادكم على النار بحق محمدوآله وأصحابه الأطهار.

[أبوســـارة1973]

أرجو التعديل على كود الاستاذ : TareQ M

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

وليكن مثلا من الخلية a1:aw22 من ورقة العمل 1

[أيسم إبراهيم]

السلام عليكم

أخي أبو سارة

خاصية حذف الصور و الأشكال لا تتعامل مع مدى محدد (Range) و بالتالي لا يمكن تنفيذ ما تريد ( على حد علمي ) إلا بحيلة

هات مزيدا من الشرح لما تريد عمله علنا نستطيع المساعدة

دمت بخير

أيسم إبراهيم

تم تعديل سبتمبر 3, 2010 بواسطه أيسم إبراهيم