CutObjectAndPaste
From scripting
Function CutObjectAndPaste(Obj1 As Variant, DestSet As HybridBody) As Variant If MySel.Count <> 0 Then MySel.Clear End If MySel.Add Obj1 MySel.Cut If MySel.Count <> 0 Then MySel.Clear End If MySel.Add DestSet MySel.Paste Dim TempObj Set TempObj = DestSet.HybridShapes.Item(DestSet.HybridShapes.Count) Set CutObjectAndPaste = TempObj End Function