Text Box Length

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" <[email protected]> a écrit dans le message de
news: [email protected]...
>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" <[email protected]> a écrit dans le message de
> news: [email protected]...
> >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" <[email protected]> a écrit dans le message de
news: [email protected]...
> 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" <[email protected]> a écrit dans le message de
>> news: [email protected]...
>> >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" <[email protected]> a écrit dans le message de
> > news: [email protected]...
> > >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" <[email protected]> a écrit dans le message de
> news: [email protected]...
> > 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" <[email protected]> a écrit dans le message de
> >> news: [email protected]...
> >> >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.
> >>
> >>
> >>
>
>
>