You'd like a quick way to "stack" the shapes you've selected. That is, to align them one above the other so they stack up like bricks or building blocks, one above the other with no space in between them.
Solution
This little macro will do the job for you. Select the shapes you want to stack before running it.
Sub StackEmDanO()
Dim x As Long
With ActiveWindow.Selection.ShapeRange
For x = 1 To .Count - 1
.Item(x + 1).Top = .Item(x).Top + .Item(x).height
Next
End With
End Sub