Copy a TextBox (shape)

[Mark]

Hi -

I am working in C# VSTO and Excel 2007 but thought I'd ask how to do this in
VBA and maybe it would help with the C# code.

I just want to copy a shape (textbox) with all of its text and formating
(e.g., Bold, no fill, no line). And paste it multiple times down the page
(via a loop), actually to a different workbook.

I've tried shape.copy but don't know how to paste it where I want it.
I've tried shape.duplicate but can't get that to work either.

Much thanks for ideas.

Mark

 

[OssieMac]

Hi Mark,

I haven't been able to do this without actually activating the 2nd workbook
and worksheet and selecting the paste location. However, here is what I have
that works but maybe someone else can do it better.

Windows("Book1").Activate
Sheets("Sheet1").Shapes("TextBox1").Copy
Windows("Book4").Activate
Sheets("Sheet2").Activate
Range("B8").Select
ActiveSheet.Paste

 

[Leith Ross]

Hi Mark,

I haven't been able to do this without actually activating the 2n
workbook
and worksheet and selecting the paste location. However, here is what
have
that works but maybe someone else can do it better.

Windows("Book1").Activate
Sheets("Sheet1").Shapes("TextBox1").Copy
Windows("Book4").Activate
Sheets("Sheet2").Activate
Range("B8").Select
ActiveSheet.Paste

Hello Mark,

"Shapes" is a very broad class. It would save a lot of time if we kne
which of three types of text boxes you wanted to copy: HTML, Forms, o
Control Toolbox

--
Leith Ros

Sincerely,
Leith Ross

'The Code Cage' (http://www.thecodecage.com/

 

[Mark]

Leith -

I'm not sure, its the type that you can create in Excel 2007 ...
Insert/Text/TextBox.

Mark

 

[Mark]

OssieMac -

Thank you, Mark

Hi Mark,

I haven't been able to do this without actually activating the 2nd workbook
and worksheet and selecting the paste location. However, here is what I have
that works but maybe someone else can do it better.

Windows("Book1").Activate
Sheets("Sheet1").Shapes("TextBox1").Copy
Windows("Book4").Activate
Sheets("Sheet2").Activate
Range("B8").Select
ActiveSheet.Paste