Office: Name eines aktiven Shapes auslesen

Hallo,

ich muss den Namen (.Name) oder den beinhaltenden Text (.TextFrame.Characters.Text) eines beliebigen, aber gerade aktiven Shapes (in meinem Fall ein Rechteck) auslesen und in eine Variable oder Zelle oder sonstwohin schreiben.

So in dieser Art:

Code:

Kann mir jemand bei meinem Problem helfen? *confused.gif*

Einen kleinen Ansatz habe ich im Bereich "Application.Caller" gefunden, konnte dies allerdings nicht umsetzen.

Grüße Lauschner

:)

 

Hallo

Was meinst du mit "gerade aktiven Shapes" ?

Evtl. sowas ?

ransi

 

ransi,

du bist hiermit mein persönlicher Held des Tages. Das war die Lösung, die du mir genannt hast.

Genau, ich meinte die Bezeichung eines Shapes, welche auch im Arbeitsblatt im Namensfeld erscheint, wenn dieser Shape ausgewählt ist.

Hier noch mein Code:

Code:

Danke nochmal!

 

Die Ermittlung des beinhaltenden Textes eines aktiven Rechtecks geschiet ähnlich.

Code: