Fooling around with "Shapes" and "Selection of shapes"

[keldsor]

I'm just manually trying to move some shapes around on the active worksheet by selecting the shapes AND then with a Sub move them.

IF I in the immidiate window asks for:

? Excel.Selection.Count

I get the correct number back ... tried many different selections

BUT

? Excel.Selection.Item(1).Name

does NOT give me the right name of the first object in the selection ... in fact the shape with that name is not even IN the selection at all !

It looks like it returns the name of the SHAPES instead !

How can I get the names of the shapes in the SELECTION ?

 

[Fennek]

Hello,

try it like this (untested)

sub read_ShapeNames
dim Shp as shape
for each shp in activesheet.shapes
   debug.print shp.name 'also typename(shp) and others
next shp
end sub

regards

 

[keldsor]

OK, I found it myself !

? Excel.Selection.Shaperange.Item(1).Name