Shape.OrderBackOf

Sub OrderBackOf(Shape As Shape)

Member of Shape

The OrderBackOf method places a shape behind a specified shape in the stacking order within the same layer.


Parameters	Description
Shape	Identifies the shape that has another shape placed behind it in the stacking order

The following code example creates a gray rectangle behind the selected shape:

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 
 End If 
End Sub