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.

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.

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.

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.

Maybe this........

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

Vaya con Dios,
Chuck, CABGx3



"CWillis" wrote:

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.

Thank you very much Ardus and CLR. I will try and go from there.

"Ardus Petus" wrote:

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.