القومي قام بنشر مارس 12, 2012 مشاركة قام بنشر مارس 12, 2012 الاساتذة الافاضل هل يمكن وضع كود لحذف الصور من الاكسيل Book2.rar رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 السلام عليكم تفضل أخي الكود التالي Sub deleteShapes() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub أو هذا Sub deleteShapes2() For i = ActiveSheet.Shapes.Count To 1 Step -1 ActiveSheet.Shapes(i).Delete Next i End Sub رابط هذا التعليق شارك More sharing options...
محمد يحياوي قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 الاستاذ طارق بارك الله و هذا ايضا الملف به مجموعة من الاكواد لحذف الكل Book2.rar اما اذا اردت حذف كل صورة على حدى اكتب هذا الكود قم بتحديد الصورة و شغل الكود Sub Macro1() Selection.Delete End Sub رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 (معدل) Sub deletshape() Dim sh As Shape For Each sh In ActiveSheet.Shapes If sh.Type = msoPicture Then sh.Delete End If Next sh End Sub الأخوة الفاضل / سلام الله عليكم الأكواد السابقة تحذف كل الأشكال بما فيها الزرار ما رأيكم فى هذا الكود الذى يحذف الصور فقط تم تعديل مارس 13, 2012 بواسطه دغيدى رابط هذا التعليق شارك More sharing options...
طارق محمود قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 بارك الله فيك أخي دغديدي فعلا ، عندك حق الكود الذي قدمته أدق جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 عفوا أخى الفاضل المهذب مهندس الأكواد/ طارق رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر مارس 13, 2012 مشاركة قام بنشر مارس 13, 2012 السلام عليكم احبائي طارق محمود , دغيدي , محمد يحياوي --------------حفظكم الله و جزاكم خيرا ========================== لائراء الموضوع هل بالامكان حذف الصور اعتمادا على عنوان نطاق يعني الموجودة داخل هذه الخلايا من النطاق المعين جربوا هذا الكود Sub kh_shp_Delete() Dim R As Integer Dim shp As Shape With ActiveSheet For Each shp In .Shapes If Not Intersect(shp.BottomRightCell.Cells, .Range("B4:K17").Cells) Is Nothing Then shp.Delete End If Next shp End With End Sub ودمتم في حفظ الله رابط هذا التعليق شارك More sharing options...
دغيدى قام بنشر مارس 14, 2012 مشاركة قام بنشر مارس 14, 2012 الفاضل / عبدالله باقشير سلام الله عليكم اهل اليمن الكود يقوم بحذف الزر إذا كان موجودا بالمدى رابط هذا التعليق شارك More sharing options...
القومي قام بنشر مارس 14, 2012 الكاتب مشاركة قام بنشر مارس 14, 2012 الاساتذة الافاضل / السلام عليكم الاستاذ / طارق محمود والاستاذ / محمد يحياوى والاستاذ / دغيدى والاستاذ / عبدالله باقشير بارك الله فيكم وجزاكم كل خير والشكر لمجهودكم تحياتى اخواتى الكرام رابط هذا التعليق شارك More sharing options...
القومي قام بنشر مارس 14, 2012 الكاتب مشاركة قام بنشر مارس 14, 2012 استاذنا الفاضل / دغيدى واستاذنا الفاضل / عبدالله باقشير السلام عليكم الكود لايعمل رغم تحديد النطاق هل يوجد خطأ فى الاوفيس شكرا جزيلا رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان