A
Andrew B
Hi - need help
I would like to pass text from one text box to another. The text is more
than 255 characters in length which Excel has a problem with.
I have tried this:
Sub LoadBox(FBox, TBox)
Set F1 = ActiveSheet.Shapes(FBox)
Set T1 = ActiveSheet.Shapes(TBox)
P = F1.TextFrame.Characters.Text
With T1
.TextFrame.Characters.Text = ""
For i = 0 To Int(Len(F1.TextFrame.Characters.Text) / 255)
.TextFrame.Characters(.TextFrame.Characters.Count + 1).Insert _
Mid(P, (i * 255) + 1, 255)
Next
End With
End Sub
- but this will only pass 255 characters.
Any help appreciated.
TIA
Andrew Bourke
I would like to pass text from one text box to another. The text is more
than 255 characters in length which Excel has a problem with.
I have tried this:
Sub LoadBox(FBox, TBox)
Set F1 = ActiveSheet.Shapes(FBox)
Set T1 = ActiveSheet.Shapes(TBox)
P = F1.TextFrame.Characters.Text
With T1
.TextFrame.Characters.Text = ""
For i = 0 To Int(Len(F1.TextFrame.Characters.Text) / 255)
.TextFrame.Characters(.TextFrame.Characters.Count + 1).Insert _
Mid(P, (i * 255) + 1, 255)
Next
End With
End Sub
- but this will only pass 255 characters.
Any help appreciated.
TIA
Andrew Bourke