swap files hor & vertically

that's not my requirement. My requirement is, when there are 2 selected shapes will be swaped 

Hello, I use the following macro for quickly swapping the position of two or more objects:

Sub swapPos()

    Dim c As Integer
    Dim x As Double, y As Double
    Dim x1 As Double, y1 As Double
    
    If Not ActiveSelection.Shapes.Count > 1 Then
        MsgBox "Select More than one Object to run this macro", vbInformation, "Oops!"
        Exit Sub
    End If
    
    ActiveDocument.ReferencePoint = cdrCenter
    
    c = 1
    
    While c < ActiveSelection.Shapes.Count

        ActiveSelection.Shapes(c).GetPosition x, y
        ActiveSelection.Shapes(c + 1).GetPosition x1, y1
        
        ActiveSelection.Shapes(c).SetPosition x1, y1
        ActiveSelection.Shapes(c + 1).SetPosition x, y
        
        c = c + 1

    Wend

End Sub

I use this a lot and have assigned  shift + q as my keyboard shortcut. Hope it helps.