Thread: Rectangle Size
View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
tiago tiago is offline
external usenet poster
 
Posts: 9
Default Rectangle Size

i'm adding to a rectangle a text from a range 1 by 1 character like this:

ActiveSheet.Shapes("Rectangle 3").Select
For i = 1 To Len(Range("J17"))
Selection.Characters.Text = Selection.Characters.Text +
Mid(Range("J17").Value, i, 1)
Next

It works, but when i arrives to 255 don't let me fill the rest of the
rectangle.

Anyone Help?
Thanks