Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.OrderBackOf
|
|
| Object Model Reference : Classes : S : ShapeRange : Methods : ShapeRange.OrderBackOf |
Sub OrderBackOf(Shape As Shape)
Member of ShapeRange
The OrderBackOf method moves all the shapes in a shape range. The shapes are moved behind the specified shape in the stacking order of the current layer.
The following VBA example creates a set of circles behind the outline of the selected curve.
Sub Test() |
Dim s As Shape, sr As New ShapeRange |
Dim crv As Shape, sp As SubPath, lr As Layer |
Dim x As Double, y As Double, i As Long |
Set crv = ActiveShape |
If crv.Type <> cdrCurveShape Then |
MsgBox "Please select a curve" |
Exit Sub |
End If |
Set sp = crv.Curve.SubPaths(1) |
Set lr = crv.Layer |
For i = 0 To 10 |
sp.GetPointPositionAt x, y, i / 10, cdrRelativeSegmentOffset |
Set s = lr.CreateEllipse2(x, y, 0.3) |
s.Fill.UniformColor.RGBAssign 255, 255, 0 |
sr.Add s |
Next i |
sr.OrderBackOf crv |
End Sub |
|
|
|
|
Copyright 2013 Corel Corporation. All rights reserved.