cut textbox

I am adding contols to my brother-in-law's movie collection. After the user has searched, with the user form, for their movie, I have added a button, "read about this movie", which, when clicked, generates a textbox, which is linked to a cell and displays a synopsis of the movie. This all works fine. The problem arises when I try to cut this textbox with another macro, and start the process over. I get an error message saying that the textbox's name can't be found. It doesn't have a name, only a # generated by the program. How can I name this box, and where do I insert the name?

The text box should have a name. While the text box is on the screen, go to
view-->toolbars-->control toolbox. On that toolbox, click on the design mode
button. (triangle with a pencil). With the four way arrows, click on the
text box. Next to the formula bar on the left should be the name of the text
box. (If you haven't changed its name, it is probably "TextBox1" or
similar.) From there you can change it's name. Make sure you hit enter
after changing it.

Another way to change the name: After clicking on the text box with the
four way arrows, click the properties button on the control toolbox. The
properties will appear for that text box. (Name) should be an option.

In your macro, this may help:

Sub TBPaste()

On Error Resume Next
Sheets("Summ").OLEObjects("LoadCalcTB").Delete
On Error GoTo 0

Sheets("Summ").Select
LCSummTBLoc.Select
ActiveSheet.Paste
Selection.Name = "LoadCalcTB"

End Sub

"LoadCalcTB" is the name of my text box. If it exists, this sub will delete
it and then paste the one previously copied (using another sub routine). The
text box is then named using the last line. "Selection.Name = "LoadCalcTB".

For your code, after you create the text box, call it something. Then at
the beginning of your code, always look for that textbox name. If it exists,
delete it as shown in the code above.

hth
-Chris

"by1612" wrote:

>
> I am adding contols to my brother-in-law's movie collection. After the
> user has searched, with the user form, for their movie, I have added a
> button, "read about this movie", which, when clicked, generates a
> textbox, which is linked to a cell and displays a synopsis of the
> movie. This all works fine. The problem arises when I try to cut this
> textbox with another macro, and start the process over. I get an error
> message saying that the textbox's name can't be found. It doesn't have a
> name, only a # generated by the program. How can I name this box, and
> where do I insert the name?
>
>
> --
> by1612
> ------------------------------------------------------------------------
> by1612's Profile: http://www.excelforum.com/member.php...fo&userid=8611
> View this thread: http://www.excelforum.com/showthread...hreadid=555976
>
>

Thanks for your help. My original text box was drawn with the macro recorder on. I then added selection.formula = j7 (the cell containing the synopsis) to the macro. As I said, this worked fine for displaying the text box with the text. Now I've changed this to a text box from the control toolbar (TextBox1), and while my buttons can make the box appear and disappear, I can't seem to link the text I want to the box. The error message says that my text box (selection.formuls =) does not support this method.
So how do I link my content cell to the box?

Here is the format I use. I suppose what is on the right of the = will
change depending on user input...

Sub tbtesting()

TextBox1.Value = Sheet1.Range("B21").Value

End Sub

-Chris

"by1612" wrote:

>
> Thanks for your help. My original text box was- drawn- with the macro
> recorder on. I then added selection.formula = j7 (the cell containing
> the synopsis) to the macro. As I said, this worked fine for displaying
> the text box with the text. Now I've changed this to a text box from
> the control toolbar (TextBox1), and while my buttons can make the box
> appear and disappear, I can't seem to link the text I want to the box.
> The error message says that my text box (selection.formuls =) does not
> support this method.
> So how do I link my content cell to the box?
>
>
> --
> by1612
> ------------------------------------------------------------------------
> by1612's Profile: http://www.excelforum.com/member.php...fo&userid=8611
> View this thread: http://www.excelforum.com/showthread...hreadid=555976
>
>

command button 1 creates my textbox (named textbox1 according to the properties window). Adding - TextBox1.value = sheet2.range("j7").value - generates run-time error '424', object required.

command button 2 = TextBox1.cut

Try this:

Private Sub CommandButton1_Click()

'delete tb if it exists
On Error Resume Next
ActiveSheet.TextBoxes("TextBox1").Delete
On Error GoTo 0

'create tb
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
120, 110, 210, 100).Select 'size the tb with the 4 #s
Selection.Name = "TextBox1"
Selection.Characters.Text = _
Sheet1.Range("A25").Value 'change depending on user input

End Sub

Hope that helps.
-Chris

"by1612" wrote:

>
> command button 1 creates my textbox (named textbox1 according to the
> properties window). Adding - TextBox1.value = sheet2.range("j7").value
> - generates run-time error '424', object required.
>
> command button 2 = TextBox1.cut
>
>
> --
> by1612
> ------------------------------------------------------------------------
> by1612's Profile: http://www.excelforum.com/member.php...fo&userid=8611
> View this thread: http://www.excelforum.com/showthread...hreadid=555976
>
>

Thanks Chris! Works great.

I'm sorry, it seems that each successful step leads to new questions. The generated text box (Text Box1) has a 256 character maximum, with set character size, font, etc. I guess because of it's nature, the TB has no properties window that I can access. Where do I insert statements to change these properties?