مساعدة فى كود دوائر حمراء

[aymanwaheeb]

تحياتى

وجدت كود لعمل دوائر حمراء للراسبين

ولكن عند تنفيذه يقوم بمسح جميع الأشكال الموجوده فى الصفحة وليس الدوائر الحمراء فقط

هذا هو الكود

Sub دوائر_حمراء()
'If target.Column = 2 Or target.Column = 3 Or target.Column = 5 Then
Dim c As Range
Dim ws As Worksheet
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If (shp.Type = msoOLEControlObject Or shp.Type = msoFormControl) Then shp.Delete
Next shp
Set ws = ActiveSheet
For Each c In Range("e11:i262,k11:k262,m11:r262")
If c.Value < 50 Or c.Value = "غ" Or c.Value = "غـ" Then
c.Select
Set shp = ws.Shapes.AddShape(msoShapeOval, c.Left, c.Top, c.Width, c.Height)
With shp
.Fill.Visible = msoFalse
.Line.ForeColor.RGB = RGB(255, 0, 0)
.Line.Weight = 2
End With
End If
Next c
'End If
End Sub

المطلوب فى الجزء الملون

يتم مسح الدوائر الحمراء فقط

او يتم تنفيذه على مدى محدد وليس الصفحة

شكرا لتعبكم

 

تم تعديل يناير 25, 2018 بواسطه aymanwaheeb

[أبوأحـمـد]

لحذف الشكل الدائري والبيضاوي جرب

Worksheets("Sheet1").Ovals.Delete

 

استبدل Sheet1 باسم الصفحة