كود لحذف صور

[القومي]

الاساتذة الافاضل

هل يمكن وضع كود لحذف الصور من الاكسيل

Book2.rar

[طارق محمود]

السلام عليكم

تفضل أخي الكود التالي

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

[محمد يحياوي]

الاستاذ طارق بارك الله و هذا ايضا الملف به مجموعة من الاكواد لحذف الكل

Book2.rar

اما اذا اردت حذف كل صورة على حدى اكتب هذا الكود قم بتحديد الصورة و شغل الكود

Sub Macro1()

  Selection.Delete

End Sub

[دغيدى]

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 بواسطه دغيدى

[طارق محمود]

بارك الله فيك أخي دغديدي

فعلا ، عندك حق

الكود الذي قدمته أدق

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

[دغيدى]

عفوا أخى الفاضل المهذب مهندس الأكواد/ طارق

[عبدالله باقشير]

السلام عليكم

احبائي

طارق محمود , دغيدي , محمد يحياوي --------------حفظكم الله

و جزاكم خيرا

==========================

لائراء الموضوع

هل بالامكان حذف الصور اعتمادا على عنوان نطاق

يعني الموجودة داخل هذه الخلايا من النطاق المعين

جربوا هذا الكود

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

ودمتم في حفظ الله

[دغيدى]

الفاضل / عبدالله باقشير

سلام الله عليكم اهل اليمن

الكود يقوم بحذف الزر إذا كان موجودا بالمدى

[القومي]

الاساتذة الافاضل / السلام عليكم

الاستاذ / طارق محمود

والاستاذ / محمد يحياوى

والاستاذ / دغيدى

والاستاذ / عبدالله باقشير

بارك الله فيكم وجزاكم كل خير والشكر لمجهودكم

تحياتى اخواتى الكرام

[القومي]

استاذنا الفاضل / دغيدى

واستاذنا الفاضل / عبدالله باقشير

السلام عليكم

الكود لايعمل رغم تحديد النطاق هل يوجد خطأ فى الاوفيس

شكرا جزيلا