T
Troubled User
I am moving text from one textbox (from the drawing toolbar) on one sheet to
another textbox (on another sheet). I used these textboxes to allow for
copy/paste functionality, which I couldn't make work using the ControlToolbox
Textboxes . Anyway, when I move the data using the function below, It does
not move the formats (underline / bold) of the moved text. Any help would be
appreciated.
Thank you.
Sub moveit
Dim x1 As Integer
Dim Source1 As TextBox
Dim Target1 As TextBox
Dim Text1 As String
Set Source1 = sht1.DrawingObjects(1)
Set Target1 = sht2.DrawingObjects(1)
For x1 = 1 To Source1.Characters.Count Step 250
' Place the first text box text into a variable called theText.
Text1 = Source1.Characters(Start:=x1, Length:=250).Text
' Place the value of theText variable into second text box.
Target1.Characters(Start:=x1, Length:=250).Text = Text1
Next
End Sub
another textbox (on another sheet). I used these textboxes to allow for
copy/paste functionality, which I couldn't make work using the ControlToolbox
Textboxes . Anyway, when I move the data using the function below, It does
not move the formats (underline / bold) of the moved text. Any help would be
appreciated.
Thank you.
Sub moveit
Dim x1 As Integer
Dim Source1 As TextBox
Dim Target1 As TextBox
Dim Text1 As String
Set Source1 = sht1.DrawingObjects(1)
Set Target1 = sht2.DrawingObjects(1)
For x1 = 1 To Source1.Characters.Count Step 250
' Place the first text box text into a variable called theText.
Text1 = Source1.Characters(Start:=x1, Length:=250).Text
' Place the value of theText variable into second text box.
Target1.Characters(Start:=x1, Length:=250).Text = Text1
Next
End Sub