حذف اشكال تلقائية والصور والنماذج في نطاق معين

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

السلام عليكم

حذف اشكال تلقائية والصور والنماذج في نطاق معين

اشتغل معي عل اوفيس 2003

حدد النطاق داخل الكود
مثلا
 

If Not Intersect(shp.BottomRightCell.Cells, .Range("A1:H100").Cells) Is Nothing Then

Sub kh_shp_Delete()
Dim R As Integer
Dim shp As Shape
With Cells.Worksheet
    For Each shp In .Shapes
        If Not Intersect(shp.BottomRightCell.Cells, .Range("A1:H100").Cells) Is Nothing Then
            shp.Delete
        End If
    Next shp
End With
End Sub

المرفق 2003
حذف اشكال تلقائية والصور والنماذج في نطاق معين.rar

[القومي]

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

السلام عليكم

شكرا جزيلا لكم

هل هذا الكود لايعمل على اوفيس 2007

لانة لايحذف الصور يحذف الازرر فى اعلى الصور دون الصور

ولكم جزيل الشكر

[mhrrd]

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

[محمدي عبد السميع]

العالم العلامة والبحر الفهامة بإذن الله

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

لاحرمنا الله من ابداعاتك

زادك الله من العلم والحلم كثيرا

[وليد فتحي]

جزاك الله كل خير استاذنا الفاضل عبدالله

ونطمع ان يتم تعديل الكود للعمل على اوفس 2007 أو 2010

ولك جزيل الشكر مقدما