Remove Autoshape Line...nothing is working

[sm5948]

I have a shared document I created. In has been in use for 4 months with no problems. This last month, 3 other individuals not very cognizant with Excel were using the document. One of these individuals placed a 'line' in the document. It appears that they used Autoshapes to draw the line.

I want to remove the line they have drawn. It sounds like a simple problem, but I've tried:

* Edit, Clear, All
* Edit, Cut
*Right Click the 'line', Format AutoShape, under Colors and Lines, change Line Color to No Line
* Delete a series of rows with the line in the middle row,

Everything I’ve tried to eliminate this line is not working and this is very frustrating. This type of 'line formatting' is rampant in the department and has appeared in multiple documents, which I've had to recreate.

I'm not sure what they did, so I'm not sure how to correct this issue. I'm presuming they used AutoShapes. There are two small white circles - above and below the line. And a small green circle above the top white circle that has circular arrows surround it....perhaps a rotate feature. Any suggestions are appreciated.

Stephanie

 

[erik.van.geit]

Hi,

perhaps a stupid question, but did you tru to click and delete?
you didn't mention: "select shape and press delete"

else try this:
press the white arrow at the (top)left of the drawaing toolbar
draw an imaginary rectangle around the area
press delete

else feel free to email me the file
please delete all other sheets and clear data
make some cells around the line yellow, so I can quickly locate the line

kind regards,
Erik

 

[sm5948]

Hi Eric,

I had tried both options you mentioned before signing onto the Forum.

If you provide me with your e-mail address, I'll e-mail you the file. I don't see an option to upload the file here. I've highlighted the row in yellow.

Thank you.

Stephanie

 

[erik.van.geit]

my email is in my signature

 

[sm5948]

I sent the file to your e-mail address listed on your homepage. Let me know if you received it. The item in questions was highlighted in yellow.

Thank you Erik!

 

[erik.van.geit]

the lines are put one on top of the other
so deleting several times will help: I had to delete about 7, 8 times in row 44

or are there too many to do it manually?
then you could use some code

It could be that those lines are created by code because they are all exactly the same. Isn't there code in your workbook?

 

[erik.van.geit]

they are in fact rectangles

I used this code

Sub deleteLines()
Dim sh As Shape
Dim i As Long
 
Application.ScreenUpdating = False
 
    For Each sh In ActiveSheet.Shapes
    If Left(sh.Name, 10) = "Rectangle" Then sh.Delete
    i = i + 1
    Next sh
    
Application.ScreenUpdating = True
 
MsgBox "# of deleted shapes : " & i, vbInformation, "REPORT"

End Sub

O, dear
907 shapes were deleted

 

[sm5948]

The only 'code' I used was in a simple formula in Column F.

I accessed another document with the same 'line' format. I deleted 100 times, yes I counted, and the 'line' is still there.

 

[erik.van.geit]

The only 'code' I used was in a simple formula in Column F.

I accessed another document with the same 'line' format. I deleted 100 times, yes I counted, and the 'line' is still there.

By code we mean "macros" not formulas.
Do you suspect that other users could have running code from other workbooks or ...? Else the problem will occur again.

Anyway, my code seems to do the job well and quickly

 

[sm5948]

Is there a simple way to copy/paste your code into my Master document? I ran the code on my document, and deleted 907.

I then tried to add the code to my other documents where I'm encountering deleted 3,000 plus 'lines'. Then I went back to my original document from which I ran this code and the 'lines' are still there.

What am I doing incorrect, if anything?