Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.OrderBackOne
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.OrderBackOne |
Sub OrderBackOne()
Member of ShapeRange
The OrderBackOne method moves all the shapes in a shape range. The shapes are moved one step backward in the stacking order of the current layer.
The following VBA example creates a shadow for each selected object by duplicating the objects, offsets the duplicates by a small distance, and fills the duplicates with gray.
Sub Test() |
Dim srOld As ShapeRange, srNew As ShapeRange |
Set srOld = ActiveSelectionRange |
If srOld.Count <> 0 Then |
Set srNew = srOld.Duplicate(0.05, -0.05) |
srNew.ApplyUniformFill CreateRGBColor(50, 50, 50) |
srNew.OrderBackOne |
End If |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.