excel2016 vbaでグループ化したShapeの、グループ内のShapeからグループ名を求める方法

Question

会社からはブロックされているためスマホで書き込んでいます。帰宅次第修正します（帰宅できれば）

freeformとtextboxをグループ化して、freeformにcilckedマクロを登録します
上記のオブジェクトが沢山あるシートです。
freeformをクリックしたとき
Shapes("Application.Caller")
にてどのfreeformか特定はできたのですが、
そのfreeformが所属するグループ名（Group 6など）を特定したいです
Worksheet.Shapesを総当たりする以外の方法をご教示頂けませんでしょうか

Answer 1

シェイプが所属するグループは、そのシェイプのオブジェクトのParentGroupプロパティに入っていますので、グループの名前を取得するとすると下記の通りになります。

Shapes(Application.Caller).ParentGroup.Name

シェイプがグループに属していない場合は例外になるので適宜対処を。