how to find shape immediately behind the active shape
hold alt key as you select to "dig" down
Not manually, but by codes
My crude attempt
Sub SelectShapeBehind()Dim sr As ShapeRangeOptimization = TrueSet sr = ActiveSelectionRangesr.RemoveFromSelectionsr.Shapes.Last.AddToSelectionsr.Shapes.Last.Next.AddToSelectionsr.Shapes.Last.RemoveFromSelectionOptimization = False ActiveWindow.Refresh Application.RefreshEnd Sub