Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 . |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Problem with TAB key and Textbox controls | Excel Programming | |||
Excel VBA TextBox problem | Excel Programming | |||
Textbox problem | Excel Programming | |||
Problem with TextBox & ControlSource - Please Help | Excel Programming | |||
Excel textbox problem | Excel Programming |