Makro ile çizim nesnelerini gruplamak

[feryat]

Makro ile çizim nesneleri oluşturup gruplamam gerekiyor. aşağıdaki gibi bir kod kullanıyorum ancak çizim nesnelerinin adı her seferinde farklı olduğu için kod hata veriyor.
Koddaki (Array("Line 2", "Rectangle 1") ifadeleri nasıl değiştirirsem o anda oluşturulan bu iki nesneyi (adı ne olursa olsun) gruplayabilirim?

Sub Makro2()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 128.25, 52.5, 87, 121.5).Select
ActiveSheet.Shapes.AddLine(140.25, 106.5, 210, 106.5).Select
ActiveSheet.Shapes.Range(Array("Line 2", "Rectangle 1")).Select
Selection.ShapeRange.Group.Select
End Sub

 

[ozgretmen]

Aşağıdaki kodu dener misin ?

Sub grup()
On Error Resume Next
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 186, 221, 132, 54).Select
ActiveSheet.Shapes.AddLine(366, 256, 495, 256).Select
For i = 1 To 1000
ActiveSheet.Shapes.Range(Array("Line " & i + 1, "Rectangle " & i)).Select
Selection.ShapeRange.Group.Select
Next i
End Sub

 

[feryat]

Teşekkür

Kod çalışıyor çok teşekkür ederim.

 

[feryat]

Bir sorum daha olacak

Aynı uygulamayı word ile yaptığımda çizim nesnesini imlecin bulunduğu yere oluşturmak istiyorum. Nasıl bir kod gerekir?

 

[ozgretmen]

Kod çalışıyor çok teşekkür ederim.

Rica ederim.İyi çalışmalar.Word konusunda bir fikrim yok.Formun Word ile ilgili bölümüne soruyu sorabilirsiniz.