Select umgehen bei Shape Gruppierung
01.07.2005 16:46:18
marko_ti
ich möchte einen Teil der Shapes auf einem Tabellenblatt gruppieren und benamsen, am liebsten ohne select. Bisher machte ich das so (mit Select und fester Anzahl):
ActiveSheet.Shapes.Range(Array(ShName, ShName & "1LEF", ShName & "2LEF", ShName & "1RIG", ShName & "2RIG")).Select
Selection.ShapeRange.Group.Select
Selection.ShapeRange.Name = ShName & "ALL"
dabei ist ShName ein Hauptname und alles was zu diesem Namen "passt" (mit "1LEF" usw als Endung) soll damit gruppiert werden. In Zukunft wird es aber z.B. bis "9LEF" und "9RIG" gehen, daher möchte ich eine Schleife nutzen:
ActiveSheet.Shapes.Range(ShName).Select
For i = 1 To 9
__ For j = 1 To 2
____ If j = 1 Then FragmentName = LTrim$(Str(i)) & "LEF" _
_____ Else: FragmentName = LTrim$(Str(i)) & "RIG"
____ ActiveSheet.Shapes.Range(ShName & FragmentName).Select
__ Next j
Next i
Selection.ShapeRange.Group.Select
Selection.ShapeRange.Name = ShName & "ALL"
...aber 1. führt jedes select dazu, dass die Vorauswahl wieder vergessen wird (gibt es ein .AddToSelection oder sowas?!) und 2. möchte ich das select am liebsten ganz vermeiden(!), aber wie? Und wie dann benamsen?
Für Eure Tipps wäre ich dankbar!!!
Viele Grüße aus Kölle
Marko