VBAでオートシェイプのグループ化についての質問です。

質問

VBAでオートシェイプのグループ化についての質問です。

オートシェイプ線（Line）で台形を作成し全てを選択し、グループ化したいと考えています。
また、連続して台形を作成していきたいと考えています。
?4本線を引く
?グループ化（Aグループ）
?4本線を引く
?グループ化（Aグループ）
　⇒　連続して作成・・・

Dim st() As Variant
Dim ob As Shape
Dim MyLine As Shape

'線の作成
Set MyLine = ActiveSheet.Shapes.AddLine(startX, startY, widthX, heightY)
'線の選択
For Each ob In ActiveSheet.Shapes
　　ReDim Preserve st(j)
　　st(j) = ob.name
　　j = j + 1
Next ob
'グループ化
Worksheets("test").Shapes.Range(st).Select
Selection.ShapeRange.Group.Select

と上記コードで一つのグループは作成出来たのですが、次に作成すると
Worksheets("test").Shapes.Range(st).Select
Selection.ShapeRange.Group.Select
でエラーになります。

恐らく前のグループ化内の線も選択してしまうのではないかと思っていますが、対処の仕方が解りません。
線の作成方法から選択方法等いろいろ意見が聞きたいと思っています。
アドバイスよろしくお願いいたします。
m(__)m

回答No.1

hige_082 · ベストアンサー

台形ならこれで出来ますけど、だめ？
Sub Trapezoid()
ActiveSheet.Shapes.AddShape(msoShapeTrapezoid, 348.75, 243.75, 129.75, 80.25).Select
End Sub

試してないけど
＞Worksheets("test").Shapes.Range(st).Select
＞Selection.ShapeRange.Group.Select
を
ActiveSheet.Shapes.Range(st).Group.Select
としたらどうなる？
参考まで

お礼

ありがとうございます。
選択する事で頭がいっぱいになっていました。

直接グループ化をかける事に気づきませんでした。
なんとかやっていけそうです。

ちなみに台形は（底辺、上辺、高さ）を指定しなくてはならないので、
線分で台形を作っています。

非常に参考になりました。
ありがとうございました。m(_ _)m