Replace selected shapes with shape from clipboard

VBA code please

All shapes have same sizes, but different orientation - portrait or landscape

1. I have 1 shape copied in Clipboard - Clipboard.Shapes(1) /no such collection, only for example/

2. I select many shapes  - ActiveSelection.Shapes

I try to replace every Shape in ActiveSelection.Shapes with Clipboard.Shapes(1)

Below is example of requested process

Sub Test_Try()
dim mshape as shape
For each mshape in ActiveSelection.Shapes
mshape = Clipboard.Shapes(1)