Difference between revisions of "CutObjectAndPaste"
From scripting
(Created page with " 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 <>...") |
(No difference)
|
Latest revision as of 05:20, 22 April 2017
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