Solved

Excel with Hundreds of Invisible Text Boxes

Posted on 2013-01-27
3
278 Views
Last Modified: 2013-02-18
Hello,

I'm troubleshooting a very slow Excel spreadsheets.  It's a 1 worksheet workbook, with only one page of data.

When I go to the "Page Layout" -> Selection Pane, I see hundreds of text boxes.  When I click on one of them, nothing appears/dissappears.  If I randomly click somewhere on the page, I might click on one of these text boxes, which draws a border around it until it loses focus.

Is there anyway to delete all of these items at once?  I have not idea what caused them to be created in the first place.  

Thanks for any advice
0
Comment
Question by:compsol1993
  • 2
3 Comments
 
LVL 26

Accepted Solution

by:
redmondb earned 500 total points
ID: 38825209
Hi, compsol1993.

This is a problem I've seen here a number of times. The macro below will delete all Shapes in the current sheet. (ListBoxes are one type of Shape.)
Sub Delete_All_Shapes()
Dim xResponse As Long
Dim xShape    As Shape

If ActiveSheet.Shapes.count = 0 Then
    MsgBox ("No Shapes in the current sheet. Run cancelled.")
    Exit Sub
End If

xResponse = MsgBox("About to delete all of the current sheet's Shapes. [" & ActiveSheet.Shapes.count & "]" & Chr(10) _
                                & "('OK' to continue, 'Cancel' to quit.)", vbOKCancel, "Delete All Shapes")
If xResponse = 2 Then Exit Sub

For Each xShape In ActiveSheet.Shapes

    xShape.Delete
    
Next

End Sub

Open in new window

Regards,
Brian.
0
 

Author Closing Comment

by:compsol1993
ID: 38903098
Perfect!  Thanks for the help
0
 
LVL 26

Expert Comment

by:redmondb
ID: 38903337
Thanks, compsol1993.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article will guide you to convert a grid from a picture into Excel format using Microsoft OneNote and no other 3rd party application.
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
The viewer will learn how to  create a slide that will launch other presentations in Microsoft PowerPoint. In the finished slide, each item launches a new PowerPoint presentation and when each is finished it automatically comes back to this slide: …
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.

929 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now