How do I export the contents of autoshapes to a text file?

[Donncha]

I have one or more autoshapes contained in an excel file and would like to
export the contents (text contained therein) into a text file or some other
file format that would allow me to organize the content in a list or table.

[Muhammed Rafeek M]

Try this one:

Open "TESTFILE.txt" For Input As #1
ActiveSheet.Shapes("Text Box 1").Select
MyString= Selection.Characters.Text

Input #1, MyString


"Donncha" wrote:

> I have one or more autoshapes contained in an excel file and would like to
> export the contents (text contained therein) into a text file or some other
> file format that would allow me to organize the content in a list or table.