copy textbox from workbook to another

daveyc3000 · Feb 20th 2021

this works but ....the formattjnf doesn't get retained ...anybody know how?

Code

Sheets("comms").Activate
ActiveSheet.Shapes("Text Box 2").Select
a = Selection.Characters.Text
ThisWorkbook.Sheets("comms").Activate
ActiveSheet.Shapes("Text Box 2").Select
Selection.Characters.Text = a

**Carim** · Feb 20th 2021

Hello,

As far as I know ... there is nothing like a single instruction to copy TextBox formatting ...

You will probably have to build your own Copy procedure with each and every property that you have set in the Source TextBox ...

Hope this will help

**Carim** · Feb 20th 2021

Hello again,

Googled your research ... and stumbled upon following link :

https://stackoverflow.com/ques…s-in-excel-2013-using-vba

Hope this will help

daveyc3000 · Feb 21st 2021

Quote from Carim

Hello again,

Googled your research ... and stumbled upon following link :

https://stackoverflow.com/ques…s-in-excel-2013-using-vba

Hope this will help

Display More

thank you ..worked like a charm

**Carim** · Feb 21st 2021

Glad to hear you could fix your problem

Thanks a lot for your Thanks

Share