selecting shapes by name

[Alexander Hanna]

I have got a visio solution, depending on data from a text-file. In the
following vba-code you can see, that I drop different shapes, who are
named by the content of the variable "code", e.g. the name of the
dropped shape is abcd.

Set stnObj = Documents("Schablone.vss")
Set mastobj = stnObj.Masters("SBS_location")
Set pagobj = ThisDocument.Pages(1)
Set shpObj = pagobj.Drop(mastobj, x, y)
shpObj.Name = "" & Code & ""

you can't see loop, which drops about 50 shapes...

After I have dropped this 50 shapes with different names, I want to
select the shapes again (in a different order) by specifying their
name.

I have tried the following code, but this doesn't work. Can anyone help
me?

Set shpObj1 = shpObj.Item("abcd")

Thank you for your help and greeting
Alexander Hanna

[Jessi Formoe]

Try this:
Set shpObj1 = pageob.Shapes("abcd")

"Alexander Hanna" <alexand...@fth2.siemens.de> wrote in message
news:3AA6421D...@fth2.siemens.de...