اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

السلام عليكم

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

اشتغل معي عل اوفيس 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

  • Like 1
رابط هذا التعليق
شارك

  • 1 year later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information