Text and TextBox problem
 

With a textbox from the Drawing toolbar, how do I
programmatically load the textbox with loads of text?

ActiveSheet.Shapes("Text Box 10").Visible = True
ActiveSheet.Shapes("Text Box 10").Select
' Selection.Text = "ABC" 'this works
'the following does not work
Selection.Text = _
"Use this Fax template to create the first Fax for a new" & _
vbNewLine & "Contract." & vbNewLine & vbNewLine _
& "Enter all those items that will be 'standard' for every Fax."

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date: 22/07/2004

Text and TextBox problem
 

Stuart,

Try something like the following:

Dim SH As Shape
Set SH = ActiveSheet.Shapes("Text Box 1")
SH.TextFrame.Characters.Text = "this is some text" & vbLf & _
"this is some more text"



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Stuart" wrote in message
...
With a textbox from the Drawing toolbar, how do I
programmatically load the textbox with loads of text?

ActiveSheet.Shapes("Text Box 10").Visible = True
ActiveSheet.Shapes("Text Box 10").Select
' Selection.Text = "ABC" 'this works
'the following does not work
Selection.Text = _
"Use this Fax template to create the first Fax for a new" &
_
vbNewLine & "Contract." & vbNewLine & vbNewLine _
& "Enter all those items that will be 'standard' for every
Fax."

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date:
22/07/2004

Text and TextBox problem
 

Suggested is that you use vbLf instead of vbNewLine and
otherwise let the textbox automatically wrap the text.
Note that you don't need to select the textbox.

Sub LoadText()
Dim Msg As String
Msg = "INSTRCTIONS:" & vbLf & "Use this Fax template " & _
"to create the first Fax for a new Contract. Enter " & _
"those items that will be 'standard' for every Fax."
With ActiveSheet.Shapes("Text Box 10")
.Visible = True
.TextFrame.Characters.Text = Msg
End With
End Sub

Regards,
Greg


-----Original Message-----
With a textbox from the Drawing toolbar, how do I
programmatically load the textbox with loads of text?

ActiveSheet.Shapes("Text Box 10").Visible = True
ActiveSheet.Shapes("Text Box 10").Select
' Selection.Text = "ABC" 'this works
'the following does not work
Selection.Text = _
"Use this Fax template to create the first Fax for a
new" & _
vbNewLine & "Contract." & vbNewLine & vbNewLine _
& "Enter all those items that will be 'standard' for
every Fax."

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date:
22/07/2004


.

Text and TextBox problem
 

Many thanks to you both.

Regards.

"Chip Pearson" wrote in message
...
Stuart,

Try something like the following:

Dim SH As Shape
Set SH = ActiveSheet.Shapes("Text Box 1")
SH.TextFrame.Characters.Text = "this is some text" & vbLf & _
"this is some more text"



--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com



"Stuart" wrote in message
...
With a textbox from the Drawing toolbar, how do I
programmatically load the textbox with loads of text?

ActiveSheet.Shapes("Text Box 10").Visible = True
ActiveSheet.Shapes("Text Box 10").Select
' Selection.Text = "ABC" 'this works
'the following does not work
Selection.Text = _
"Use this Fax template to create the first Fax for a new" &
_
vbNewLine & "Contract." & vbNewLine & vbNewLine _
& "Enter all those items that will be 'standard' for every
Fax."

Regards.


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date:
22/07/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.726 / Virus Database: 481 - Release Date: 23/07/2004