أبوســـارة1973 قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 السلام عليكم جمعيا أسعد الله صباحكم بكل خير المطلوب أخواني كود يقوم بمسح جميع الصور الموجودة في ورقة العمل ( sheet5)
طارق محمود قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 السلام عليكم تفضل أخي Sub delete_Pic() Worksheets("sheet5").Select For Each sh In ActiveSheet.Shapes sh.Delete Next End Sub
أيسم إبراهيم قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 (معدل) السلام عليكم تقضل أخي الكريم Sub DelPic() Application.ScreenUpdating = False ActiveSheet.Pictures.Delete Application.ScreenUpdating = True End Sub دمت بخير أيسم إبراهيم تم تعديل أغسطس 2, 2010 بواسطه أيسم إبراهيم
أبوعبد الله قام بنشر أغسطس 2, 2010 قام بنشر أغسطس 2, 2010 أخي العزيز / أبو سارة إضافة للحلول المتميزة التي قدمها إخواني الأعزاء طارق وأيسم ، بالمرفق تنفيذ للفكرة مع اجتناب حذف مفتاح تنفيذ كود حذف الصور إضافة لفكرة نسخ ولصق نفس الصور من جديد من ورقة أخرى ، أرجو أن يمثل المرفق إضافة مفيدة . تحياتي للجميع أبو عبدالله حذف كل الصور من الورقة.rar
أبوســـارة1973 قام بنشر أغسطس 2, 2010 الكاتب قام بنشر أغسطس 2, 2010 TareQ M أيسم إبراهيم أبو عبدالله جزاكم الله خير الجزاء وشكرا لكم على سرعة الرد والتجاوب مع موضوعي كتب الله لكم جميعاً الجنة وحرم أجسادكم على النار بحق محمدوآله وأصحابه الأطهار.
أبوســـارة1973 قام بنشر سبتمبر 2, 2010 الكاتب قام بنشر سبتمبر 2, 2010 أرجو التعديل على كود الاستاذ : TareQ M ليكون حذف الصور من نطاق محدد داخل ورقة العمل وليكن مثلا من الخلية a1:aw22 من ورقة العمل 1
أيسم إبراهيم قام بنشر سبتمبر 3, 2010 قام بنشر سبتمبر 3, 2010 (معدل) السلام عليكم أخي أبو سارة خاصية حذف الصور و الأشكال لا تتعامل مع مدى محدد (Range) و بالتالي لا يمكن تنفيذ ما تريد ( على حد علمي ) إلا بحيلة هات مزيدا من الشرح لما تريد عمله علنا نستطيع المساعدة دمت بخير أيسم إبراهيم تم تعديل سبتمبر 3, 2010 بواسطه أيسم إبراهيم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.