Shape.OrderBackOf

Sub OrderBackOf(Shape As Shape)

Member of Shape

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


Parameter	Description
Shape	Specifies the shape to have another shape placed behind it in the stacking order

The following VBA 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