CutObjectAndPaste

From scripting
Revision as of 05:20, 22 April 2017 by Nickpisca (talk | contribs) (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 <>...")
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
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