Erase Drawing Object

  • Thread starter Thread starter smandula
  • Start date Start date
S

smandula

In a given range, say B1 to AX33, randomly there are
line draw objects.
Obviously, highlite such cell to individually delete one line or
object
at a time

How would you delete all the objects in a range.

With Thanks
 
Not sure exactly what you are looking for but try these ideas

Sub DeleteSheetDrawingObjects()
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.Save
End Sub

Sub noborders()
Worksheets("Sheet1").Range("A1:D4") _
.Borders.LineStyle = xlNone
End Sub
 
Back
Top