Text box size

[HotLanta]

Hello all,

I have a spreadsheet with 10,000 text boxes (well maybe 50). It makes me angry when I run across one and it doesn't have the same uniform shape that it's brothers and sisters have.

I have found code on the web for creating text boxes of a certain height and width but not for running on an exsisting text box.

I tried using the recorder and even modifing found code but nothing has worked. Could someone provide a little code for the following situation:

I want to select a text box and run a simple macro to adjust its height and width.

If code is provided I can play around with it until I find the height and width I need.

Also I don't want to run this on ALL textboxes as I have some big ones and small ones. I thought I could play around with it and save one as macro_big and another as macro_small. You get the idea.

Thanks in advance!

 

[njimack]

Quick and dirty code below. It should probably test that a textbox is selected before displaying the input boxes...

Sub Text_Box()
Dim w As Double
Dim h As Double

w = InputBox("Please enter width") * 28.34645669291
h = InputBox("Please enter height") * 28.34645669291

With Selection.ShapeRange
    .Width = w
    .Height = h
End With
End Sub

 

[Rick Rothstein]

Where did you get the TextBoxes from... the Drawing toolbar or the ActiveX Control Toolbox toolbar?