Shape.Placement procedure builder

Shape.Placement (Excel)

Returns or sets an XlPlacement value that represents the way the object is attached to the cells below it.

xlFreeFloating - Object is free floating, xlMove - Object is moved with the cells, xlMoveAndSize - Object is moved and sized with the cells.
Dim shp As Shape: Set shp = 
shp.Placement = xlFreeFloating