CutObjectAndPaste

From scripting
Jump to: navigation, search
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