A lot of Text Boxes!

K

Kenneth Ho

Hello all,
I got a problem on my excel files. Hope you may help.
I don't know why, many of my excel files have a huge number of Text
Boxes. It's over 50,000 and they're all empty. As a result, it slows down
my computer. Whenever I edit the files, it takes more than 10 seconds to
move one cell to another. So, I can't do anything on them anymore.
I've checked my computer and it's no virus. I'm still using Excel 97.
Any one of you have the same experience? Why this happened? You will help
me a lot if you could solve my problem. Many thanks!

Regards,
Kenneth Ho
 
J

Jim Cone

You don't know why?
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware

"Kenneth Ho"
<[email protected]>
wrote in message

Hello all,
I got a problem on my excel files. Hope you may help.
I don't know why, many of my excel files have a huge number of Text
Boxes. It's over 50,000 and they're all empty. As a result, it slows down
my computer. Whenever I edit the files, it takes more than 10 seconds to
move one cell to another. So, I can't do anything on them anymore.
I've checked my computer and it's no virus. I'm still using Excel 97.
Any one of you have the same experience? Why this happened? You will help
me a lot if you could solve my problem. Many thanks!

Regards,
Kenneth Ho
 
B

Bob Phillips

If you remove them, do they come back?

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)
 
K

Kenneth Ho

Thanks for your reply.
I can't remove them all. As there're more than 50000. Any idea? Thanks.

Regards,
Kenneth Ho
 
D

Dave Peterson

You didn't answer Bob's question about if they come back.

But you could try a macro to remove the textboxes from the activesheet:

Option Explicit
Sub testem()

Dim myShape As Shape
Dim OLEObj As OLEObject

For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoTextBox Then
myShape.Delete
End If
Next myShape

For Each OLEObj In ActiveSheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.TextBox Then
OLEObj.Delete
End If
Next OLEObj
End Sub

The top portion deletes the textboxes from the Drawing toolbar. The bottom
portion deletes the textboxes fom the control toolbox toolbar.


If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
 
A

Azim Lakha

Hi Kenneth Ho,

did you manage to remove all this text boxes? i am having the same problem.
After starting a new file the problem started in this new one also. why tis
boxes are been created? any one knows? it can be an office update problem?

any ideas pls.

thank you
 
Top