Group Lines #2

[Dr.Ile]

Hello

I already posted this problem, but I'm still struggling with my code. So I will make my problem a little different and I will combine my two previous posts (Raypayette, thank you for you answer, but...):
How should I group the first 50 from 100 lines on the Sheet1. I know that I can:
ActiveSheet.Shapes.Range(Array("Line 6", "Line 5"....)).Select
Selection.ShapeRange.Group.Select
But what if I won't work with Shape’s Names (“Line 6”...). It is difficult to loop through them-Shape’s Names. I know that there is the second way to work with Shape Objects (Lines,…): that is Index Numbers. I think that I can easilly loop with Index Numbers rather than with Shape’s Names. OK, but I don’t know how to get their Index Numbers. Excel assigned them a default value (on a first come first serve basis, even for deleted shapes).
Maybe I make my problem unclear, so I will simplify it:
Which is the most effective way to loop through Shape Objects (Lines). Select and then group them. Any suggestions.

Thank you in advance

Drile

[Bryan Hessey]

Hello

I already posted this problem, but I'm still struggling with my code. So I will make my problem a little different and I will combine my two previous posts (Raypayette, thank you for you answer, but...):
How should I group the first 50 from 100 lines on the Sheet1. I know that I can:
ActiveSheet.Shapes.Range(Array("Line 6", "Line 5"....)).Select
Selection.ShapeRange.Group.Select
But what if I won't work with Shape’s Names (“Line 6”...). It is difficult to loop through them-Shape’s Names. I know that there is the second way to work with Shape Objects (Lines,…): that is Index Numbers. I think that I can easilly loop with Index Numbers rather than with Shape’s Names. OK, but I don’t know how to get their Index Numbers. Excel assigned them a default value (on a first come first serve basis, even for deleted shapes).
Maybe I make my problem unclear, so I will simplify it:
Which is the most effective way to loop through Shape Objects (Lines). Select and then group them. Any suggestions.

Thank you in advance

Drile

Hi,

the simple way to loop through Shape Names is

Please Login or Register  to view this content.

but I have not (yet) arrived at 'grouping'.

Does this give you any pointer
---
added column E & F
---