グループ化図形の中の図形のTopLeftCell取得方法とコピペで消えてしまうParentGroupの取得

グループ化図形の中の選択図形のTopLeftCellを取得したい 図形1から3までの文字を入れた図形3つをグループ化して、その中の図形3を選択した状態 この図形のTopLeftCell(左上にあるセル)を取得したい場合 期待するのはB5セル 普通に書いて Sub test3() Dim s As Shape Set s = Selection.ShapeRange(1) '選択図形取得 Dim r…