Shape.OrderBackOne

Sub OrderBackOne()

Member of Shape

The OrderBackOne method moves a shape one step backward in the stacking order.

The following code example creates a gray rectangle behind the selected shape, and it then moves the selected shape behind the rectangle:

Sub Test() 
 Dim s As Shape, r As Shape 
 Dim x As Double, y As Double, sx As Double, sy As Double 
 If ActiveSelection.Shapes.Count = 1 Then 
  Set s = ActiveShape 
  s.GetBoundingBox x, y, sx, sy 
  Set r = ActiveLayer.CreateRectangle2(x, y, sx, sy) 
  r.Fill.UniformColor.RGBAssign 225, 225, 225 
  r.OrderBackOf s 
  s.OrderBackOne 
 End If 
End Sub