How to get the text inside the textframe of a shape using a macro?

[mhmd27]

I have a sheet including so many shapes (most of them are circle and line).These shapes makes a telecommunication topology that circles are stations and line are links between them .A text has been written inside of each circle ( It shows station name).How can I get only the text of the shapes (Station name), by clicking the mouse on it and pressing a key?If it is possible substitue that name in another cell in a new sheet. Please excuse me about my poor english.

[HSV]

Hello mhmd27,

First; run code hsv() to give all shapes the code "shapetext".
Now click on one of the shapes.
On sheet two the results are in column 1.

Please Login or Register  to view this content.

Please Login or Register  to view this content.