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
