السلام عليكم
حذف اشكال تلقائية والصور والنماذج في نطاق معين
اشتغل معي عل اوفيس 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