ShapeRange.OrderBackOne

Sub OrderBackOne()

The OrderBackOne method moves all of the shapes in the range. The shapes are moved one step backward in the stacking order of the current layer.

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