Sub FlipDuplicate() Dim s As Shape, s1 As Shape, SR As ShapeRange Set SR = ActiveSelectionRange For Each s In SR Set s1 = s.Duplicate s1.Flip 2 s1.TopY = s.BottomY Next sEnd Sub