Sub testing()

ActiveSheet.Shapes("Text Box 1").Select
With Selection
.AutoSize = True
msgbox "Width = " & .Width
End With

End Sub

HTH
--
AP


"CWillis" a écrit dans le message de
news: ...
Can you give an example of the .width command? I can't get it to work. I
also can't get the .TextLength command to work. I'm not sure how to use
it.
Here is the code that auto sizes the box.

Sub testing()

ActiveSheet.Shapes("Text Box 1").Select
With Selection
.AutoSize = True
End With

End Sub

Thanks.

"Ardus Petus" wrote:

The width (in points) will be returned by .Width property of the listbox.
Caution: if empty, the listbox seems to have a minimum width of 12.75
The width is dependent upon the characters' with with proportional fonts:
'0000000000 will give a larger width than iiiiiiiiii

HTH
--
AP


"CWillis" a écrit dans le message de
news: ...
I created a macro that auto sizes a text box. I would like for the
macro
to
tell me the length of that text box. (I believe this is simply the
number
of
characters in the text box.) How do I do this? Thanks in advance for
any
suggestions.