Problem with selection of Text Box

[phila7475]

Hello,

I wrote a code that copy Text box from one sheet to another. Further in the code I need to delete this pasted TextBox. This is something I cannot do. It seems very simple, but I was unabe to find solution despite the fact that I was searching for it in past two days.

I named the TextBox. But after it is pasted to differetnt sheet it changes its name. Furthermore it will become a picture and not editable text box. This is not a problem for me as I do not need to edit the text inside the box. But I think it might be the reason why the name is not preserved and why I got the error message that the object cannot be found.

So what I am looking for is to be able to:

Copy and paste Textbox from one sheet to another. (This I have)
Delete the pasted Textbox. (this is the point where I have problems).

I will appreciate any help....

[ranman256]

ActiveSheet.Shapes("TextBox1").Delete

[phila7475]

Hi,

Thanks for the suggestion. However it doesnt work for me. Since I am working with multiple textboxes I dont want to rely on automatic numbering, but rather name them.
The other thing is as I mentioned is that after pasting it is not textbox anymore. Is there any way how to paste the textbox and keep its original properties such as name and formatting?

[Andy Pope]

Have to ask, why bother copying if you then delete it?

Try using the shape collection to delete latest shape.

activesheet.shapes(activesheet.shapes.count).delete

[phila7475]

Thanks a lot. It somehow worked. I will use the programme for creating automatic reports so after the text box is pasted the sheet is saved as pdf. Then the programme will update the values and based on some of them new textbox
will be selected and pasted and the sheet will be saved as pdf. and again and again...

If you know, If there is actually possibility to move a text box from one sheet to another, without pasting it as a picture, but as a text box. I thought this will not be such a big deal (I am totally new to programming).

[Andy Pope]

what code are you currently using to copy textbox?
I assume the textbox is a shape and not a activex control

[phila7475]

Yes...you are right it is a shape. The code I am using

For creating the textBox (for now I am just using dummy text)

Sheets("zdroj").Shapes.AddTextbox(msoTextOrientationHorizontal, 50.5, 95.25, 203.25, 111).Select
   With Selection
        .ShapeRange(1).TextFrame2.TextRange.Characters.Text = "TOTO JE TEXT A"
        .Name = "nucem1"
   End With

Then for deciding which text to paste

If Sheets("vypocet").Range("B221") < 10 Then
       Sheets("zdroj").Shapes("nucem2").Copy
       Sheets("sablona").Range("D24").PasteSpecial
       'Sheets("sablona").Shapes("nucem2").Select
         'With Selection
          '.Name = "AktivObject1"
       'End With

But as soon as it is pasted to the new sheet, I cannot select it and thus cannot delete it. I wanted to add something to Paste otions but couldnt find any code to keep formating and name of the copied shape.

[Andy Pope]

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Try these

Sub AddTextbox()

    With Sheets("zdroj").Shapes.AddTextbox(msoTextOrientationHorizontal, 50.5, 95.25, 203.25, 111)
        .TextFrame2.TextRange.Characters.Text = "TOTO JE TEXT A"
        .Name = "nucem1"
    End With

End Sub


Sub CopyShape()

If Sheets("vypocet").Range("B221") < 10 Then
    Sheets("zdroj").Shapes("nucem1").Copy
    With Sheets("sablona")
        .Paste
        With .Shapes("nucem1")
            .Name = "AktivObject1"
            .Left = .Parent.Range("D24").Left
            .Top = .Parent.Range("D24").Top
        End With
    End With
End If

End Sub

[phila7475]

Cool. I appreciate your quick help very much!